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ABSTRACT 


This thesis documents a simulation study of light infantry operations in mid-to-high 
intensity conflict. An initial data analysis is performed using deliberate attack missions 
conducted at the U.S. Army National Training Center (NTC) and compares the meas- 
ures of effectiveness (MOE) of fully modernized heavy forces to the effectiveness of 
heavy forces operating with an attached hight infantry battalion. This analvsis includes 
development of a light infantry attack simulation which employs object oriented pro- 
gramming in MODSIM II. The simulation models hght infantry operations in the NTC 
environment and 1s used to explore alternative tactical employment techniques designed 
to enhance unit performance on the AirLand Battlefield. This thesis also describes the 
tank and mechanized infantry task force, the light infantry task force, the heavv/light 
rotation concept, the deliberate attack mission, and the NIC environment and data 
collection capabilities. 

The simulation models an infantry attack against opposing forces 1n fixed, fortified 
positions. The model is a high resolution simulation which builds object code from 
infantry platoon level through battalion. The simulation depicts unit movements, attri- 
tion to indirect fires. and target engagements. The positioning of enemy forces 1s ex- 
tracted from actual battlefield positions during an NTC deliberate attack mission. The 
simulation replicates close operations 1n which the light force mission is to gain an initial 
penetration of enemy barriers and pass the heavy force forward to continue the attack. 


The simulation study explores the use of light forces in alternative tactical scenarios. 
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I. INTRODUCTION 


A. BACKGROUND 

The Arm of the 21st Century must meet the fundamental requirements of versatil- 
ity, deplovability, and lethalitv. AirLand Battle, the Army’s current doctrine, provides 
the framework for organizing, training, and equipping forces to maximize combat power 
and effectiveness across the spectrum of conflict. from low to high intensity. The re- 
quirement to maintain an appropriate mix of heavy, light, and special operations forces 
is one of six Army fundamental imperatives [Ref. 1]. At the operational and tactical 
levels, heavy and light forces must be prepared to fight on an integrated battlefield to 
exploit and optimize the capabilities of each force. The Army’s Combat Training Cen- 
ters (C1TCs) provide a tough, realistic environment in which to tram forces to fight on 
the combined arms battlefield. 

The National Training Center (NTC) is the testbed of the AirLand Battle doctrine. 
One of the recurrent themes of training at the NTC 1s the integration of light infantry 
forces on the battlefield with heavy force operations. The first of the “heavy, hight” ro- 
tations was conducted in the spring of 1987. There have been 12 heavy/light rotations 
out of some 66 rotations at the time of this writing. The application of combined heavy 
and light force operations stems from the AirLand Battle imperatives, which are funda- 
mental for success on the modern battlefield. Specifically, the one imperative which de- 
scribes the purpose’ of integrating forces is entitled “Combine Arms and Sister Services 
to Complement and Remforce.”. Complementary combined arms expose the enemy to 
the effects of one arm while he attempts to evade the effects of another. Arms and ser- 
vices reinforce each other when one serves to increase the effectiveness of the other or 
combine to produce mass. [Ref. 2: p. 25] 

Successful integration of light and heavy forces is a combat multiplier on the bat- 
tlefield. Intuitively, an analvsis of units fighting as part of a combined arms force should 
suggest a measurable increase in the effectiveness of engaged forces. The NTC provides 
the data collection environment to test such an hypothesis. However, after reviewing 
observer comments over numerous heavy/light rotations, an apparent trend seems evi- 
dent: our heavy and light forces are not synchronized in their efforts on the battlefield. 
Additionally, a cursory analvsis of battlefield damage and casualty rates indicates that 


the light forces typically contribute little to the overall battle while suffering 


overwhelming casualues. Major General Peter J. Bovlan. in a recent article addressing 

the emplovment of heavy and hght forces in mid-to-high intensity conflict, states 
It has been demonstrated ume and tune again that, other conditions being equal, 
hght forces pitted against heavy combat forces will suffer unacceptably high losses 
or be defeated almost 100 percent of the time. The defeat of enemy heavy maneuver 
forces will almost certainly require the emplovment of similar tvpe heavy forces, 
even with enhanced light force technology. [Ref. 3: p. 28] 

B. PURPOSE AND SCOPE 

The purpose of this thesis is to analvze light infantry effectiveness through devel- 
opment and experimentation with a simulation model. The scope of this thesis 1s limited 
to modeling hght force operations in a heavy, light scenario consistent with the capabil- 
ines of the NTC. This thesis emphasizes the development and use of a light force sim- 
ulation model and emplovs the object oriented programming language MODSIM II. 

Current Army capabilities to test light infantry operations in a mid-to-high intensitv 
environment are limited. Analyzing light infantry effectiveness may be accomplished 
through several approaches, two of which are presented here: an analvsis of measures 
of effectiveness in training at the CTCs. and simulating hght infantry operations in a 
combat model. The Armv’s CTCs provide a training environment in which light forces 
are routinelv emploved; however, light forces are seldom used in a role which maximizes 
their utilitv in this type of environment. Furthermore. US Army combat models are also 
limited in their abilitv to model light infantry operations. 

Light infantry performance at the NIC 1s difficult to measure quantitatively. NTC 
battles tvpically focus on the destruction of enemy maneuver forces as opposed to other 
elements of enemy combat power. Heavy light battles are a graphic manifestation of 
this shortcoming. Commanders rarely have the opportunity to employ light forces 
against enemy battlefield operating systems other than their heavy maneuver forces, re- 
sulting in unacceptably high losses. There are numerous factors which influence the 
ability of the hght force to accomplish its mission. Some of the factors are readily ob- 
tained from the comments of the observers, while others are so internuxed with the 
performance of the entire heavy light force as to render them intangible. Those quanti- 
fiable factors will be used to perform the initial data analysis and determine measures 
of effectiveness. Chapter II discusses light infantry performance at the NIC. However, 
due to limited ability of the CTCs to provide scenarios in which the light force's combat 
power mav be maximized. and limited data availability, further analysis via simulation 


methodology may provide insight into improving light infantry effectiveness. 


C. SCENARIO 
1. General 
The general scenario portrays a requirement to commit friendly forces in rugged. 
open terrain, against a modern armored and mechanized opposing force. The friendly 
force mission is to conduct a deliberate attack to seize objectives and destroy enemy 
forces. The friendly force 1s organized around a fully modernized tank and mechanized 
infantry task force and light infantry forces. The commander’s intent ts to insert the 
light force early to penetrate barriers and fix the enemy front line. The heavy forces will 
exploit the penetration and attack deep into enemy territory as the main effort. 
a. Phase I- Deployment 
The first phase of the model, deployment of forces, assumes successful in- 
sertion of the light forces, either to forward positions in front of the enemy, or to posi- 
tions to the enemw’s flank or rear. No actual modeling 1s performed; this simply provides 
a starting position from which the light forces begin ground operations. 
b. Phase Il - Light Infantry Operations 
The second phase 1s modeled bv the light infantrv attack simulation. Dur- 
ing this phase, light infantry elements are operating against enemy fixed, fortified posi- 
tions. Enemy positions and weapons systems are extracted from actual battlefield 
positions during an NTC deliberate attack mission, and several friendly courses of action 
form the basis of the experiment. 
2. The Light Infantry Attack Simulation 
The model is a high resolution combat simulation which discretely represents 
the infantry battalion, rifle companies, rifle platoons, and each Anu-Tank Guided Mis- 
sile (ATGM) gunner in the platoon. The simulation depicts unit movements, attrition 
to indirect fires, and target engagements. The simulation permits employment of light 
forces in alternative tactical situations. Further discussion of the model 1s contatned in 
hapter 111. | 
3. Future Developments 
The natural extension of this effort is the development of a complementary 
heavy force model or analytic surrogate. Continued development of scenarios to allow 
simultaneous employment of light and heavy forces in complementary force operations 


would enable a more complete analysis of tle total force effectiveness. 


D. PROBLEM DESCRIPTION 

The approach of this thesis 1s to construct and analyze, by simulation methodology, 
a model to explore alternative light infantry tactics in a mid-to-high intensity deliberate 
attack scenario. The NTC heavy, light rotation deliberate attack missions provide a data 
source for determining measures of effectiveness and employment characteristics. 

This thesis is an initial effort to simulate light force operations. It is both timely and 
relevant; planning successful complementary operations pose a significant problem to 
tactical units preparing to fight on an integrated battlefield. This research and analvsis 
mav be used to enhance the battle staff planning process and tactical execution. and to 
provide doctrinal insight into methods to achieve results that neither force could achieve 


Operating on its own. 


Il. HEAVY/LIGHT PERFORMANCE ASSESSMENT 


A. GENERAL 
This Chapter presents an assessment of heavy/light training and performance at the 
NTC. Data collected from numerous heavy and heavy/light rotations are presented to 


further define the problem. The motivation for this presentation is to: 


¢ Provide data input to the light infantry attack simulation (discussed further in 
Chapter IV). 


¢ Determine the measures of effectiveness to analyze unit performance. 


¢ Highhght shortcomings in the ability of the CTCs to support complementary force 
Operations, instrumentation. and performance evaluations. 


¢ Describe shortconmungs in heavy ‘light tactics. 


B. TASK ORGANIZATION 
1. The Light Infantry Battalion 
a. Employment of Light Infantry 
Infantry units have the unique quality of being an all-weather force capable 
of defeating anv enemy on anv terrain. Infantrv 1s ideally suited for close-in operations 
against an enemy of equal mobility. or i terrain which degrades the mobility of mech- 
anized forces [Ref. 4]. In operations where armored forces predominate, infantry can: 


e Make initial penetrations in difficult terrain for exploitation by armor and 
mechanized infantry. 


e Attack over approaches that are not feasible for heavy forces. 


e Conduct rear area operations, capitalizing on air mobihty. [Ref. 2: p. 41] 


b. Organization of the Light Infantry Battalion 
An infantry battalion consists of a headquarters, maneuver units, combat 
support (CS), and combat service support (CSS) elements. The battalion is typically 
augmented with additional CS and CSS assets based on the mission, enemy, terrain, 
troops and time available (METT-T). The maneuver forces organic to the infantry 
battalion include three rifle companies and one anti-armor company. Normal augmen- 
tation to the battalion includes a fire support battery, engineers, air defense, and other 


elements. 


2. The Tank and Mechanized Infantry Task Force 
The heavy battalion task force 1s organized bv cross-attaching tank and mech- 
anized infantry companies within the brigade. A battalion task force usually consists 
of four to five maneuver companies, an anti-armor company. a headquarters element, 
and various slices of CS and CSS assets. An example of a mechanized infantry task force 


is shown 1n Figure 1. 


C. THE DELIBERATE ATTACK MISSION 

The deliberate attack mission is the most detailed and thoroughly coordinated of- 
fensive nussion for the battle staf} planner. For the tactical unit, the deliberate attack 
is the most difficult and challenging to execute. All elements of combat power are 


brought to bear on the enemy. The deliberate attack 1s defined as: 


An attack planned and carefully coordinated with all concerned elements based on 
thorough reconnaissance, evaluation of all available intelligence and relative combat 
strength. analvsis of various courses of acuon and other factors affecting the situ- 
ation. It generally is conducted against a well organized defense when a hasty attack 
cannot be conducted or has been conducted and failed. [Ref. 5: p. 1-8] 


Deliberate attacks are planned in detail. and are characterized by timely intelligence, 
extensive preparations, deception, electronic warfare, unconventional warfare, and psv- 
chological operations. Deep operations play a significant role in the deliberate attack. 
Deep operations are conducted to “block movement of [enemy] reserves, destrov lis 
command posts. neutralize his artillery. and prevent the escape of targeted elements. 
(Ref. 2: p. 116] The deliberate attack is therefore selected as the focus for the study of 


heavy lnsht effectiveness and/data collectiamr 


D. NTC DATA COLLECTION 
1, The NTC Enviromnent 
The NTC is located in the Mojave Desert at Fort Invin, California. The NIC 
is a Vast expanse of widely varying desert terrain covering some 640,000 acres. The 
mountainous terrain divides the maneuver area into three corridors; the northern corri- 
dor is used principally for live fire training while the central and southern corridors are 
used for force on force maneuver exercises. The training center is depicted in Figure 2. 
2. Mission of the NTC 
The NTC has two primary missions. The first nussion 1s to provide tough, re- 
alistic combined arms and joint services training in accordance with AirLand Battle 


doctrine, for brigades and regiments in a mid-to-high intensity environment, while 
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Figure 1. The Mechanized Infantry Task Force 


retaining feedback and analysis at the battalion/task force level. The second mission is 
to provide a data source for training, doctrine, and equipment improvements. Training 
exercises are “free-play”, allowing units to plan and fight as they would in combat, 
subject to specific safety guidelines and rules of engagement. Following each mussion, 
units receive immediate performance feedback in the form of after action reviews 


(AARs). The AAR is a forum for commanders and staffs to evaluate their own 
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Figure 2...) The National Training Center 


performance and learn from comments of outside observers. The AAR focuses the 
analysis on the seven battlefield operating systems (BOS): 

e Maneuver 

¢ Command and Control 

® ire support 


e Intelligence 


e Air Defense 
e Mobility, Countermobility, Survivability 


¢ Combat Service Support. 


3. Heavy/Light Rotation Description 

Training at the NTC is conducted on a rotational basis. There are 14 rotations 
scheduled during each fiscal vear. Forces deploying to the NTC typically consist of a 
brigade headquarters. two battalions of armor and’or mechanized infantry, an artillery 
battalion, and a support battalion. During a heavy’light rotation, a light infantry bat- 
talion from another division 1s attached to the heavy force brigade commander for the 
entire rotation. 

The NTC has a permanently assigned opposing force (OPFOR) which is or- 
ganized to replicate a Soviet style motorized rifle regiment, consisting of three motorized 
rifle battalions. OPFOR equipment consists of U.S. Army tracked and wheeled vehicles 
visually modified to more closelv resemble threat equipment. The OPFOR is proficient 
in Soviet tactics. knows the terrain, and 1s highlv motivated. There is no change in threat 
tactics when a heavy, light rotation is scheduled as compared to normal heavy rotations. 

A typical rotation 1s divided into three phases: battalion force- on-force training 
(FFT), battalion live fire training (LF IT). and brigade FFT. During a heavy/light rota- 
tion. the FFT and LFT usually consist of both heavy and light task forces operating 
under brigade control. 

4. Data Collection 

The NTC’s instrumentation system 1s the principal asset in collecting kill data 
and deternuning the source of the engagement. Player units are instrumented with the 
Multiple Integrated Laser Engagement Svstem (MILES) down to vehicle level. enabling 
the mainframe subsvstems to determine vehicle locations and status, resolve direct fire 
engagements, and to store the data for future analysis. Instrumentation of the hght 
infantry battalion is less accurate. Although each individual soldier Wears the MILES 
harness, and all! light infantry weapons svstems have a MILES firing device, position 
locating devices track only to platoon level, and casualty data are collected by 


observer‘controllers moving with the units. 


E. DATA SOURCES 
The Army Research Institute--Presidio of Monterey (ARI--POM), houses the CTC 
archive. The facility consists of the digital data archive, a non-digital data archive, and 


the Combat Operations Research Facility. The archives store all the data colected 


during a rotation at the NTC. The data take many forms, including digital, audio-visual, 
Written, and operations graphics. 

The digital archive database provides the user rapid access to unit organizations. 
equipment composition, battle damage statistics, and battle replay. Digital data may 
be accessed through the VAX computer network or personal computer. The non-digital 
data archive stores written copies of the unit take-home packages, operations orders and 
overlays. video tape copies of the AARs. and audio recordings of radio transmissions. 
The data presented in this thesis represent a collection effort using all of these media, 
with emphasis on the unt take home packages. 

The unit take home packages contain a written summary of the mission and include 
detailed comments from the observers relating unit performance in each of the seven 
BOS. Additionally, the take home package contains a statistical summary describing the 
casualtv assessment of both friendly and OPFOR units, and identifies weapon svsteims 
that caused the casualties for each nussion during the rotation. Kills of OPFOR svstems 
attributable to light infantry actions are sometimes diflicult to isolate; the statistical 
Summary identifies svstems that caused OPFOR casualties, but does not necessarily 
identify the unit that caused the casualties. An example of this data isolation problem 
is the TOW anti-tank guided missile: both light infantry forces and mechanized infantry 
forces engage tanks with TOWs. Determining which unit scored the hit under these 
conditions involves double-checking times and locations of unit engagements, and veri- 


fving Weapons assigned to the unit. 


F. DELIBERATE ATTACK Dats 

The initial data analysis effort involved the collection of data to compare the oper- 
ational effectiveness of heavv forces versus the effectiveness of heavy forces operating 
with an attached light infantry battahon. Data were collected for all deliberate attack 
missions conducted bv fully modernized heavy forces operating without light mfantry; 
l.e., units equipped with the M1 Abrams Main Battle Tank and the M2 Bradlev Infantry 
Fighting Vehicle, and all deliberate attack missions in which light infantry operated in 
conjunction with heavy forces. A total of 26 heavy modernized deliberate attack 
nussions were selected, with 14 heavy/light deliberate attack missions available. How- 
ever, it must be noted that due to the small sample size of fully modernized heavy/light 
rotations (only six of the 14 available), all heavy/light deliberate attack missions were 
considered. Of the 26 heavy deliberate attack missions, seven were conducted by mech- 


anized task forces, 13 by armor task forces, and six by brigade level units. The 


10 


heavy light deliberate attacks included seven by armor heavy, five by mechanized 


infantry heavy. and two bv brigade level forces. 


G. MEASURES OF EFFECTIVENESS 
I. General 
There are numerous factors to consider as measures of a unit’s effectiveness. 
Some factors such as force ratios and number of svstemis destroyed are easily quantified, 
while other factors such as technology or leadership are not. The MOEs established here 
reflect, to some extent, the limitations of data availability and quantifiability. The sta- 
tistical summary in the unit take home packages is the most reliable data source for 
collection. There are two aspects of operational planning Which lead to quantifiable 
NM{OEs: destruction of the enemy force and protection of the friendly force. However, 
inconsistencies 1n the data prevent accurate analvsis of all systems contributing to the 
effectiveness of the unit. In particular, the data tend to focus on the major tank killing 
systems and lack specificity and sufficient detail to accurately depict infantry losses. 
Therefore, the systems selected for study include the systems for which the data 1s most 
consistent: tanks, infantry fighting vehicles, and TOWs for the friendly force; tanks, 
BMPs, the Soviet equivalent of the M2. and BRDMs, the Soviet armored reconnaissance 
vehicle. 
2. Destroy MOE 
The first \IOE, termed the Destroy MOE, 1s calculated as the total number of 
enemy systems killed during the attack divided by the total number of enemy systems 


at the start of the attack, for each observation 7: 


OPFOR( Tanks, + BMPs, + BRDMs,)destroyed 


ca ee pr ORGian is aun RDIMs) starting 


The data collected for heavy/light deliberate attacks and calculation of the Destroy 
MOE are shown in Table 1. Modernized heavy/light rotations are indicated by an as- 
terisk in the rotation column. The combined efforts of the heavy and light forces 
achieved a mean destruction of 48.5% of the opposing forces, with a standard deviation 
of 21.6%. The range of destruction values is from 16% to approximately 84%. Table 
2 contains the data for the heavy force deliberate attack missions. For the 26 heavy 
force observations, the mean destruction of opposing forces is 49.5%, with a standard 
deviation of 23.1%. Destruction of opposing forces ranged from 15.8% to approxi- 


mately 96%. In terms of enemy destruction, heavy forces achieved a slightly higher level 


1] 


of destruction than did the heavy light forces operating in concert, contrary to the ex- 
pected result. Further discussion of this result 1s presented in the analysis at the con- 


clusion of this chapter. 
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3. Survital hoe 
The second MOE, termed the Survival MOE, 1s calculated as the total number 
of friendly systems surviving the attack divided by the total number of friendly systems 


at the start of the attack, for each observation /: 


Friendly(Tanks, + BFVs, + TOWs,)surviving 


valet Ea ! 
Survival MOE, Friendly(Tanks, + BFVs, + TOW’s)starting 


The data collected for the heavy/light deliberate attacks and calculation of the Survival 
MOE ts shown in Table 3. The combined heavy and light forces achieved a mean sur- 
vival rate of 32.3%0 of starting forces, with a standard deviation of only 9.4%. In this 
case, the range of friendly force survival is from 21% to approximately 51%. Table 4 


contains the data for the heavy force deliberate attack missions. The ad forces 
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achieved a mean survival of 23.3% of friendly forces, with a standard deviation of 
13.6%0, and ranged from total force losses to 57% survival. In terms of friendly survival, 


the combined heavy/light forces obtained slightly higher protection than did heavy forces 


Operating alone. Note, however, that these data do not reflect the losses to light 


infantry; only armor systems are considered. 
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Hl. ANALYSIS 

As stated, only those quantifiable measures of effectiveness Were considered. Of 
significant importance in the heavy/light analysis is the absence of loss figures for dis- 
mounted infantry. This is an unfortunate consequence of the limitations of the NTC to 
collect data which adequately reflect the quantity and cause of infantry losses, and in- 
consistencies in the data that do exist. 

There are several factors that are not considered when analyzing the data from a 
purely start‘loss perspective. Comments from the observer/controllers (OCs), which 
observe and evaluate cach mission, provide valuable insight into the apparent inability 
of the heavy and light forces to achieve a measurable increase in effectiveness on the 
integrated battlefield. 

An equipment shortcoming directly affects the ability of the light force to achieve 
kills against OPFOR armored equipment in the NTC environment. The primary light 
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infantry anti-tank system is the Dragon missile, a man portable, optically tracked, wire 
guided missile, designed to defeat most enemy armor. The Dragon has a MILES 


counterpart; the standard day tracker has an integrated MILES firing device. Infantry 


Dragon gunners also train to engage targets at night using the AN TAS-5 Thermal 
Night Sight. However, there 1s currently no night vision device with integrated M1LES; 
hence, infantry units operatuung during limited visibility conditions are unable to kill 
armored targets, which significantly reduces their ability to contribute to the battle in a 
measureable sense. 

Another frequent OC comment Is the susceptibility of light infantry to the effects 
of indirect fires. Once detected, arullery frequently renders the infantry ineffective before 
the dismounted force reaches the objective. The terrain of the NTC offers little cover 
to the effects of midivecaines 

The typical modus operandi of an NTC heavy light deliberate attack is a product of 
the NIC training environment. Without targetable OPFOR battlefield operating svs- 
tems other than the maneuver forces, the friendly commander frequently resorts to 
tasking the light infantry battalion to attack. under cover of darkness, to seize an initial 
foothold in the enemy defenses, breach obstacles, and establish lanes through which the 
heavy force will pass to maintain the momentum of the attack. Such attacks are typi- 
cally frontal, the least desirable form of maneuver in the deliberate attack. Not onlv 
does this method emplov the light force against an enemy it 1s not designed to defeat, 
given the terrain, it is further complicated when combining forces not accustomed to 
each other’s capabilities, limitations, and standard operating procedures. [requent OC 
comments indicate that the heavy light deliberate attack increases the overall complexity 
of the operation. as suggested by operational problems ranging from land navigation, 
failure of the liglit force to gain the initial foothold, unrehearsed recognition signals, 
friendly fire casualties resulting from the lhght force presence in the objective area. and 
loss of momentum at the passage point. Clausewitz, the oft cited military theoretician. 
might have described this as the fog @fsvar Wier 

Unquestionably, the major objective of the friendly force is the destruction of the 
enemy’s maneuver elements. However, with the introduction of light forces into the 


organization, 


..the legitimacy of such an approach comes into question. We have proved over 
and over that in a confrontation between light and heavy combat forces, in other 
than close terrain, light forces incur a significant disadvantage. Nonetheless, be- 
cause of the inability of our training centers to provide a scenario that incorporates 
the cumulative impact of indirect attacks on combat support, CSS and command 
and control throughout the depth of the battlefield, light forces are generally re- 
quired to be emploved in a manner which ill suits their utility in such an 
environment. [Ken oom een 
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The opportunity for the light force to attack enemy BOS and conduct deep operations 
does not exist. The introduction of light forces provides the means to attack the enemy 
in depth while concentrating their efforts against enemy elements they are capable of 
defeating. Emploved in this context, the simultaneity of attack by heavy and light forces 
poses a dilemma for the enemy, which ts a fundamental element of successful comple- 


mentary force operations. 
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I. LIGHT INFANTRY ATTACK SIMULATION 


A. PURPOSE 
I. Mfission Plauning 
The light infantry attack simulation provides a useful planning tool to prepare 
units for operations in muid-to-high intensity conflict. As a planning device, the simu- 
lation model allows the battle staff planner to simulate various courses of action devel- 
oped in the planning process, and to predict outcomes. The light infantry attack model 
emphasizes intelligence and operations estimates. The intent of the simulation is to en- 
able exploration of various courses of action based on the current estimate of the enemy 
situation, assist in the decision making process, and examine light infantry doctrine in a 
nud-to-high intensity environment. 
2. Battle Analysis 
The simulation model can also be emploved as a training analvsis tool. The 
CTC data archives provide the input information so that results of actual CTC battles 
can be compared to simulated outcomes. The simulation can be designed to replicate 
CTC battles to assist in evaluating unit performance. Additionally, as a training device, 
the user can compare results of alternative courses of action with those of the actual 


battle plan. 


B. MODEL PROGRAMMING 

MODSIM II is a general purpose. modular programming language which provides 
highly portable, object-oriented programmung and discrete event simulation [Ref. 7]. 
The modular concept adds flexibility in programming and encapsulates objects which 
can then be imported for use in other programs. Modules consist of three types: defi- 
nition, implementation, and a main module. Definition modules contain a set of defi- 
nitions for export to other modules; implementation modules contain the actual code for 
executing the defined methods. A main module 1s the only required module, and con- 
tains the routine of the program. 

MODSIM II provides dynamic allocation of objects, records, and arrays. Objects 
contain fields and methods, methods contain a sequence of instructions which manipu- 
late the object’s variable fields. ASK METHODS are synchronous methods, and do not 
elapse simulation time when executed. TELL METHODS are asynchronous, time 


elupsing sets of instructions, which when implemented, are placed on the simulation 
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calendar and executed in time sequence. PROCEDURES are another construct which 
perform computations and other instructions in sinular fashion as subroutines in other 


programming languages. 


C. MODEL EXECUTION 
1. Force Representation 

The hght infantry attack simulation represents both friendly and enemy forces 
in object code. The friendly forces are hierarchically organized from battalion down to 
ATGMf level. while the opposing forces are represented as a series of distinct objects 
arraved on the battlefield. Figure 3 depicts the friendly force organization in the attack 
simulation. 

Friendly forces consist of a battalion headquarters and three rifle companies, 
each consisting of three rifle platoons. The nifle platoon is uniquely defined in two 
components: the platoon headquarters and the elements of the platoon’s firepower ca- 
pabilitv. The headquarters executes unit activities, such as movement or message pass- 
ing. The firepower capability (FPC), also defined in object code, executes individual 
soldier activities, such as firing. The FPC discretely represents the major anti-armor 
svstems in an infantry platoon, while maintaining a numerical accounting for the sum 
of all remaining elements, including leaders, riflemen, automatic riflemen, grenadicrs, and 
machine gunners. 

2. Execution 

Once compiled, NLODSIM II creates an executable file with the same name as 
the main module. The model is executed simply by invoking the name of the model. 
This is another feature which contributes to the exportability of MODSIM programs. 
The light infantry attack simulation is executed with the command Attack. A brief de- 
scription of the flow of the model follows. 

The model begins and queries the user to select the tactical experiment, which 
is coordinated to a particular input file. The choices include execution of the baseline 
model, a flank attack model, or a rear attack model. The scenarios are discussed in more 
detail in Chapter IV. A second menu provides the user the opportunity to conduct a 
“walk-through” of the model or to replicate an input number of iterations. The walk- 
through writes output comments to the screen for the user to observe as the model 
progresses. A Selection to replicate will prompt the user to input the number of iter- 


ations, run without output to the screen, collect the critical data, and write this 





Figure 3. Friendly Force Organization in the Model 


information to the output file. After entering the desired selection, the model reads the 
selected input file and begins. 

Once all of the model parameters are read from the appropriate data files, the 
model creates a battalion object and stores it m the reference variable LightFighters. 
This, in turn, allocates each of the subordinate units tn the hierarchy. An instruction 1s 
passed to the LightFighters to execute the mission, and the simulation comunences. 

The flow of the model from the point at which the battalion ts mstructed to 
execute the mission follows a doctrinal representation of the deliberate attack mussion. 
The companies execute their movement plans, which stmulate movement from the attack 
position, crossing the line of departure, moving through a series of checkpoints, and 
occupation of the assault position. Upon arrival tn the assault position, the platoons 
occupy their initial firing positions, and prepare to engage assigned targets. Since the 
battalion initially conducts a synchronized attack, the Dragon gunners hold fires until 


all units report “set” and the battalion instructs the companies to attack. Once a 
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company completes the initial attack. the company moves to an intermediate objective 
from which to reengage targets Which were not destroyed. The model terminates when 
all companies have completed the final assault and either all targets are destroyed or the 


unit 1s out of ammunition. 


D. MODEL DESIGN 
1. Nifodel Components 
The hght infantry attack simulation consists of 23 modules: 1] definition, 1} 
implementation, and one main module. The simulation code is contained in Appendix 
A. A brief description of the principal components of the model follows: 
a. Attack 
Main module Attack sets the routine of the program. The module imports 
several procedures to setup the background data for the program. These procedures 
include setting the seeds for the random number generators, reading the transportation 
and missile system parameters, modeling the enemy defense, and reading the data to 
model the unit operations plan. Additionally. the main module creates the battalion and 
all subordinate units, implements the battalion object's TELL METHOD 
ExecuteNMlission, and starts the simulation. 
b. Globals 
The Globals definition and implementation modules include selected vari- 
ables which may be seen throughout the program. These variables include the random 
number generators, and variables defining characteristics of the battlefield, such as visi- 
bility condition, Weapons status, and transportation data. The implementation module 
sets the values of these variables at run-time, allocates the random number generators, 
and opens the output files. 
c. Unit 
The Unit modules provide the structure for each unit object in the model. 
Units consist of four levels of unit objects: UnitObj, RiflePlatoonObj, RifleCompany Obj, 
and BattalionObj. The generic UnitObj defines fields and methods common to all units, 
and are inherited by each of the other specific units. The methods of each of the units 
define events which normally occur at unit level, such as movement along a specified 
route, occupation of firing positions, and target assignments. The battalion object has, 
in addition to its other fields, a trigger object. The trigger object provides a means of 
synchronizing events in the simulation. An identification field 1s attached to each unit; 


companies are named A, B, and C. Additionally, within companies, for example, 
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platoons are further identified as Al, A2, or A3. The use of identifiers is a critical asset 
when viewing the model in progress and reviewing output files. 
d. Firepower Capability (FPC) 

The FPC modules are an element of the model architecture whose purpose 
is to define methods focused at the soldier level. The separation between platoon events 
and events within the FPCOBj, is a means of encapsulating events occurring at squad, 
fireteam. and individual soldier level. The FPCOdbj performs the numerical accounting 
of each subordinate element within a rifle platoon’s firepower capability. Additionally, 
the FPC discretely allocates the platoons AITGNL gunners as object Variablesaauene 
methods perform both accountabilitv and message passing. The FPCObj also has an 
identification, Which corresponds exactly with the parent platoon. 

e. ATGN 

The ATGAL modules detail the direct fire capability of the unit. The 
ATGAIObj contains 1n its fields the missile data read at the start of the program. The 
methods detail the engagement sequence of an ATGM gunner and include preparation 
of the round, target acquisition, tracking. and assessment of target damage. Addh- 
tionally, the ATGMI objects contain a trigger mechanism, which grants permission to the 
gun to fire based on current Weapons status or once the synchronized attack commences. 
Each ATGMI is also given an idenutv. The ATGM identity consists of the platoon 
(FPC) to which it belongs, appended with the number assigned to each system. either 
one or two. For example, an ATGM identity of Al2 signifies A company, first platoon, 
second ATGM gunner. . 

f. Map Reconnaissance 

The AfapRecon modules contain a procedure to read a user constructed data 
file Which is built during the planning process or to reconstruct a battle. Additionally, 
MapRecon allocates records to store positional information, and connects them in a 
linked list to form the unit movement routes. The AfapRecon module also contains the 
Distance procedure. Distance takes as input arguments, two locations in UTM grid co- 
ordinates (six-digit, 100 meter coordinates with two letter grid zone identifier), and de- 
termines the straight line distance between the two points. 

g. OPFOR 

The OPFOR modules explicitly define each OPFOR vehicle on the battle- 

field as an EnemyVehicleObj. The ModelEnemy Defense procedure reads data from an 


input file, creates each OPFOR svstem, and assigns each system the input attributes. 


As a planning tool, the user inputs data based on available intelligence; as an analvtic 
device, the user inputs actual data gathered from the various sources. 
h. ldimpact 
The Jmpact module contains two procedures: a procedure to determine the 
engagement aspect angle. and a procedure to assess damage to a target. The procedure 
AspectAngle emplovs a vector mathematics formulation to determine the angle between 
the gun-target vector and the target orientation vector. The result of the procedure call 
is a determination of where on the target the round impacted as either front, flank, or 
rear. This information is passed to the AssessDamage procedure which performs a 
Monte Carlo draw on a random number generator, compares the sample to the missile 
svstem’s probability of kill for that target and impact point combination, and returns the 
assessment of whether the target is killed or damaged. 
1. Weapons 
The }Feapons modules contain two procedures to read the specific weapon 
svstem characteristics and the probability of kill data. The user supplies the data for the 
program to read from a data file. The kill probability data used in this model are merely 
approximations of actual data under similar conditions. The data include an estimate 
of the probability of kill for a Dragon missile versus four different OPFOR vehicles in 
frontal. flank, and rear engagements. 
j. Artillery 
The Arty modules define the procedure ScheduleOPFORArtillery which 
computes the probability of kill of the OPFOR artillerv against the hight forces. The 
model emplovs a Confetti approximation, assuming the hght forces are uniformly dis- 
tributed throughout a given target area. The artillery play is scheduled at run-time, 
based on the user’s estimate of when movement will be compromised, and upon exe- 
cution of the attack. The artillery model is currently the only means of causing attrition 
of the friendly forces. 
kK. MOE 
The AOE modules provide continuous running means and variances on the 
measure of effectiveness for destruction of enemy forces. Upon termination of the run, 
the critical statistical data is written to an output file. In addition to maintaining the 
Destroy MOE, the model computes the mean mission time and mean level of attrition. 
l, Afenu 
The Avenu modules increase the utility of the model by prompting the user 


to select the particular scenario to be run, and then querying the user to select an option 
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to replicate. walk-through the model with artillerv play, or walk-through the model 
without artillery plav. Note that the selection to replicate always runs the model with 
scheduled artillerv. A selection to walk-through the model either with or without artil- 
lery allows the user to observe unit movements, occurrence of the artillery strikes, and 
results of each engagement. A selection to replicate further prompts the user to input 
the number of replications, and the model runs without providing comments to the 
screen. position such that the platoon can engage. move. and engage again. 
2. Use of Random Number Generators 

The hght infantry attack simulation uses four distinct random number genera- 
tors. The use of separate random number generators ensures comparability between 
multiple runs of the simulation. and is one of many techniques of variance reduction 
[Ref. $8: p. 47]. Random number generators are provided for sampling missile hit prob- 
abiliues., probabilities of kill against vehicular targets, indirect fire losses, and selection 


of the number of rounds per gun fired in an artillery barrage. 


E. MODEL CAPABILITIES 
The light infantry attack model simulates unit movements, direct and indirect fire 
engagements, force attrition, and target assignments. A general description of the algo- 
rithms used to implement these capabilities follows. 
1. Nfovement 
The movement algorithm is a time-elapsing method common to all Unit objects. 
There are two kev elements of the A/ove To method: identification of the destination, and 
determination of the movement time, which requires a measurement of the distance 
involved. 
6a. Position ldentification 
Positional information in the light infantry attack simulation 1s stored in a 
RECORD data structure. A record is dynamically allocated, contains variable fields, 
and differs from an object in that it has no methods which operate on its fields. A record 
can contain a reference variable of another record, thus facilitating construction of 
linked lists. Position records store the doctrinal name of the position, such as ATK PSN, 
a six digit center of mass grid coordinate (with two letter identifier) for the location, the 
locations of firing positions, if any. and a reference variable which points to the next 
position record along the unit's route. In this way, units may be “told” to move to the 


next position. with all the required information attached. 
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b. Distance 
Computing the distance between two points given in grid coordinates is 
subject to the constraint that the two points will lie in two regions covered by adjacent 
UTM grid zone identifiers (this includes diagonally adjacent regions). The Distance pro- 
cedure, defined in the AlapRecon module. first compares the grid zone identifiers and 
then “normalizes” the relationship between the two points. The computation is then an 
application of the Pythagorean Theorem, and the resulting distance is returned in me- 
ters. For example, to find the distance between NK900150 and NL030200, the algorithm 
first compares NK to NL and identifies the points as lying in horizontally adjacent grid 
zones. The algorithm then normalizes the easterly coordinate 030 (interpreted as 3.0 
kilometers) to 1030 so that the subtraction 1030 — 900 yields a horizontal change in 
distance of 13.0 kilometers. The vertical change is 5.0 kilometers, vielding a distance of 
13,928.4 meters. 
c. Nlovement Time 
On implementation of AloveTo, the algorithm sets the field value for the 
movement Start time as the current simulation time. The movement rate, R, is computed 
as 


Ry = CF, MRj, 


where (= transportation type. j = visibility condiuon. MR is a matrix of movement 
rates, and CF is an arrav of conversion factors to convert movement rates given In knots 
or kilometers hour‘to meters sec. Movement rates are input based on data obtained 
from appropriate FMs. For example, Table 16-14, FM _ 5-34, gives the rate of march of 
infantry troops, cross-country, at night, as 1.6 kin. hr[Ref. 9]. Movement ume, T, 1s then 
computed using the standard formula 7 = D/R , where distance, D, in meters, is ob- 
tained from a call to the distance procedure. The method then waits the indicated time 
to move, and then updates the unit’s position to the new position. In a situation where 
movement is interrupted. as during an artillery strike, the algorithm computes the 
amount of time remaining to complete the move, adds an arbitrary constant regroup 
time, and waits the remaining time before updating the unit’s location. 
2. Direct Fires 

Direct fires in the light infantry attack simulation model only the major anu- 

armor systems organic to light infantry units. Only the Dragon anti-tank guided missile 


system is modeled; however, the A TGA/IObj is intended to be generic to both Dragon and 
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TOW systems. Direct fire engagements model preparation of the missile, acquisition of 
the target (range checking). firing. tracking and damage assessment, and taking the 
launcher out of action. Each stage in the engagement sequence is a method of the 
ATGAIObj. The methods model the engagement sequence; determination of the result 
of the engagement is a two step process which involves computation of the engagement 
aspect angle and damage assessment. 
a. Engagement Aspect Angle 

The engagement aspect angle 1s determined by a call to the procedure 
Aspect.iAngle contained in the Jipact module. The aspect angle formula employed in the 
procedure is a result of the following derivation. The engagement aspect angle, a, de- 


fined as the angle between the gun-target vector G and the target orientation vector 7, 


is obtained from the formula 


GsT 


i (1) 
IGll 7 


COS & = 


To determine the engagement aspect angle, an arbitrary coordinate system 
is established such that the target location identifies the origin, and grid north (GN) 
defines 0°. Define 


" y = gun-target angle 


and 
( = target orientation angle, 
and let 
g, =the horizontal component of G : 
g, = the vertical component of ee 
t, = the horizontal component of T 
and 


1, = the vertical component of TJ . 
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Figure 4a depicts the angular relationship of each system. Figure 4b depicts the com- 


ponents of the gun-target vector. 





Figure 4. Gun-Target relationship 


Missile location and target location are known and given as UTM grid co- 


ordinates. Placing the target at the origin. y may be computed as 


1 
i — cera) BR 


itethe case where g, = 0, y = = or— roe Note that equation (1) suggests computing the 


magnitude of each of the vectors to obtain a. However, since the dot product is the sum 


of the products of the components of the vectors, the numerator may be expressed as 
G. T = git + 8b « 
Furthermore, 
g) =IIGI| sin y 
and 


i= IGl| cosy. 
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The components of 7 follow similarly, so that (1) may be rewritten as 


IG|Z i sin» sin@ + |Gl|lTl_ cos» cos @ 
a 


= (2) 
IGH MTT 
Factoring ||GIjl| Tl), (2) reduces to 
COS 2 =SiIN y Sill G + COS scusa. (3) 
Thus, the engagement aspect angle 1s simplv 
o = arccos ( sin y sin + COs Cos (4) 


Equation (4) 1s the formula which appears in the AspectAngle procedure. 
Once » is deternuned, it is translated to an impact area on the target. As- 
sunung all targets are symmetric about their center of mass, the impact areas are defined 


as 


front, for —45° <a < 45° 
dso <9 = oe 
225° 0 = Sie 
rear, for 135° =i¢@pepeeo 


impact area = | flank, for 


Figure 5 depicts the impact areas. The impact area is then passed to the damage as- 
sessment procedure to deterniune the results of the engagement. 

b. Damage Assessment 

Damage assessment 1s deternuned by a call to the Assess Damage procedure 
in the Impact module. AssessDamage requires three input arguments: Weapon type, 
target tvpe, and impact area. The procedure determines the probability of kill for the 
appropriate missile impacting the target in the given area. A sample is selected from a 
random number generator and compared to the kill probability. The procedure returns 
a resulting kill or damage outcome for the engagement. 
3. Indirect Fires 

The indirect fire model in the light infantry attack simulation provides the means 
of causing attrition to the light force. Assuming that the individual target elements are 
uniformly distributed throughout the target area, and the incoming rounds impact uni- 
formly throughout the target area, and assuming no rounds land outside the target area 


and there are no edge effects, let Py, represent the fraction of target elements killed. 
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Figure 5. Impact Area Designation 
Given these assumptions, the procedure ScheduleOPFORArtillery in the Arty module 


emplovs the confetti approximation 
Py=(1—e7¥7)?, 


weilere 2 = o nis the number of rounds fired, a is the lethal area of one round, and J 
is the target area [Ref. 10}. For the purposes of this model, the target area 1s defined to 
be a rectangular area measuring 260 meters by 110 meters, which corresponds to the size 
of the “IFCAS” box used in the NTC rules of engagement [Ref. 11]. The parameter re- 
presenting the Iethal area of one round is an approximation of the Iethal area of the 
OPFOR 122mm high explosive artillery round against infantry troops in the open. Ad- 
ditionally, ScheduleOPFORArtillery randomly selects an integer number of rounds per 
gun, between | and 3, fired by an OPFOR battery of six guns. Under this approxi- 
mation, one scheduled artillery barrage may result in a random casualty assessinent 
ranging froin approximately 22% to approximately 45%. 
4. Attrition 

The light infantry forces modeled in the simulation may be attritted by OPFOR 

artillery only. In its current configuration, the user schedules the artillery based on an. 


assessment of the probable times at which movement will be compromised or upon 


Pag) 


detection of the attack. Anv or all of the infantry companies may be scheduled to 
receive indirect fires. When the simulation time reaches the scheduled time, the 
company object's drulleryinterrnpt method 1s invoked. This method accomplishes two 
tasks: first, 1t interrupts the unit's current activity, and second, it invokes the platoon- 
level method TakeCasualties and passes the loss percentage. 

The AralleryInterrupt method causes execution of the unit’s movement and en- 
gagement methods to halt prematurely. A movement interrupt simply causes the unit 
to elapse additional time while “regrouping” before completing the movement. An en- 
gagement interrupt Will be passed down to ATGM level and terminate all methods in the 
engagement sequence. In particular, if the 4 7GA/OBj is tracking, the missile will be lost; 
otherwise. the process will wait the constant regroup time before starting over. In ad- 
dition to early termination of the unit’s methods, the unit will be assessed casualties. 

Casualties are managed in the model within the platoon’s FPCObj. Invoking 
the platoon’s TakeCasualties method causes the FPCODj to implement DecrementF PC. 
The DecrementF PC method computes the integer number of casualties represented by 
the input loss percentage and reduces its strength by the required number. The selection 
of personnel losses is completely random based on a sample obtained from a random 
number generator. 

5. Target Assignments, Reassignments, and Target Handover. 
a. Target Assigninents 
Assignment of targets to companies 1s a user provided input presumabiy 
based on the assignment and location of company objectives. The data is read in by the 
ModelOperations Overlay procedure in the AfapRecon module, and the targets are placed 
on the company target queue. During execution of the simulation, targets are assigned 
to platoons upon arrival in the assault position. After the platoons have occupied their 
respective firing positions, the company invokes AssignTargets which assigns targets to 
platoons according to the following heuristic: start with the most distant target; identify 
the closest platoon to that target: assign the target to the platoon; continue until all 
targets have been assigned. This heuristic is one of many alternative methods to opt- 
mize the assignment process. 
b. Reassignment 
Reassignment of targets occurs within the ReAssign method of the FPCO8;; 
in other words, targets are reassigned within the platoon. A reassignment occurs when 
either of two conditions occur: an ATGM system is out of ammunition and its assigned 


target has not been destroved, or an ATGM is lost to artillery. Furthermore, should a 
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condition occur such that the platoon does not have the assets to reassign the target to, 
the platoon will pass the target back to the company to handover to another platoon. 
c. Target Handover 

The TargetHandover method of the RifleCompanyObj is called from a sub- 
ordinate which no longer has the assets to engage a target. A handover can occur within 
a company: no methodology is provided to pass the target back to the battalion. The 
handover algorithm first looks at each platoon to identify a candidate. A candidate 
platoon is one that has ATGM ammunition available and is not currently engaging. 
The next check identifies a candidate which 1s currently m range to engage the target and 
if One exists, immediately assigns the target to the platoon. If, on the other hand, a 
candidate 1s not in range, the method then identifies the candidate closest to the target 
and tells the indicated platoon to move to the appropriate firing position and engage the 
target. If the company no longer has the assets to engage the target, the target survives 


and a comment 1s written to the output file. 


F. MODEL INPUT 
1. Scenario Input 
Scenario data within the light infantry attack simulation are divided into two 
functional areas: force composition and the light force concept of the operation. The 
simulation reads scenario input from user developed data files, and dvnamicallv allocates 
object references at run-ume. 
a. Forces 
The model contains all unit related data necessary to allocate the unit ob- 
jects and set starting force strength. The light force unit object’s fields are set within the 
object's initiahzation method, while the opposing forces data are input from a data file. 
(l, Friendly Forces. The light infantry battalion is hierarchically organ- 
ized with three rifle companies of three rifle platoons each. Each rifle platoon contains 
an FPCObj which contains a numerical representation of each element in the platoon. 
and an ATGAIODj for each dragon gunner in the platoon. 

Current configuration of the light infantry battalion is based, in part, 
on the Modification Table of Organization and Equipment (MTOE) for an Infantry 
Battalion (Airborne). This organization is selected to facilitate the model architecture 
since the ATGM sections are organic to rifle platoons. The rifle platoon’s firepower 
capability is managed by the FPCObj. Starting force strength is set according to the 
MTOE above, assuming full strength at the start of the battle. 


a 


(2, Opposing Forces. The OPFOR data is supplied by the user as an 
input file. A new eneniy vehicle object is allocated for each OPFOR system appearing 
in the data file. and its fields are set with the corresponding data. There is currently no 
enemy vehicle direct fire capability. 

b. Concept of the Operation 

The hght force concept of the operation 1s input to allow the user to ex- 
periment with different tactics and determine simulated outcomes for each approach. 
The input file is constructed based on the user's map reconnaissance using the “back- 
ward planning process”. Positional data is input from the objective to the attack posi- 
tion, and lists the unit target assignments. As the data are read in, the positions are 
stored in a linked-list, and assigned to the appropriate company. Two positions are 
uniquely identified in the data file: the assault position, and an intermediate objective. 
Both of these positions have an array of platoon firing positions, such that once the 
company arrives in that position, the platoons deploy to their respective firing positions. 
The intermediate objective is enploved for the purpose of providing a position such that 
the attacker can shoot, move, and shoot again. 

2. Nfodel Parameters 
Certain model parameters are fixed at compile-time. These include, for example, 
the cross country movement rates of dismounted troops at night, or the tume required 
to prepare a Dragon for firing... Where available, the value of the input parameter is 
obtained from an appropriate field manual (FM). Other model parameters are input at 
run-time. These parameters include, for example. ATGM kill probabilities and weapon 
characteristics. Whenever feasible, parameters are read froin a data file to provide the 


user as much flexibility as possible. 


G. MODEL OUTPUT 

The model writes to three output files: the engagement history file, the attrition data 
file, and the attack output file. During a walk-through, all three files are active. If 
replicating, only the attack output file is active. The engagement history file contains a 
detailed listing of each engagement. by system identity and target identity, and the result 
of the engagement. Also included is the re-assignment and target handover sequence. 
The attrition file records the losses to each platoon from indirect fires. The attack 
output file contains the kill data and measure of effectiveness for destruction for the 


simulation run. 


IV. SIMULATION ANALYSIS 


A. GENERAL 

To demonstrate the utulity of the model as both an analytic and planning tool, three 
scenarios are developed. The baseline model replicates an actual NTC deliberate attack 
mussion during a heavy‘light rotation: the results of the simulation can be compared to 
the results achieved on the battlefield and an analvsis performed to highlight differences. 
The two additional scenarios demonstrate the use of the simulation as a planning tool 
and allow the user to compare results of alternative tactical plans with those of the 
baseline model. The two alternative plans use the same OPFOR situation as the baseline 
model. In general terms, the baseline model may be characterized as a frontal attack, 


While the alternatives represent a rear attack and a flank attack. 


B. OUTPUT ANALYSIS 

The light infantry attack simulation 1s a terminating simulation {Ref. 12: p. 280]. The 
desired measure of performance for the model 1s defined as the number of enemy vehicles 
destroved when the friendly forces are no longer able to engage targets. The simulation 
ternunates and the number of OPFOR kills is reported to the AfOEmean and 
MOEvariance procedures in the AOE modules. These procedures maintain running 
means and variances over the input number of replications. Let A be the random vari- 
able of interest (the MIOE for a single replication). then for fixed sample size x, 

—— 


~ . /s (72) 
v\ (72) ata elias 2 N Hl 


yields an approximate 100(1 — «) percent confidence interval, (0<o< 1), for the true 


mean pu, where (7) is the sample mean and s?(m) is the sample variance [{Ref. 12: p. 288]. 


For the purposes of this analysis, sample size n = 500 and significance level o = 0.05 . 


C. THE BASELINE MODEL 

The baseline model serves as a point of departure for comparison of alternative 
tactical plans and outcomes. Operational data for the selected battle is extracted from 
the numerous media available at the CTC Archive at ARI--POM. Selection of a battle 
upon which to develop the baseline model was arbitrary; however, numerous battles 


were screened to ensure conformity with the typical modus operandi discussed in Chapter 
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I], and to select a battle which produced favorable results in terms of the measures of 
effectiveness. A brief description of the selected battle follows. 
1. NTC Heavy/Light Mission AA89xxxx 

NTC lleavy. Light mission AA89xxxx is a deliberate attack mission of an 
armored task force with a lght infantry battalion. The light infantry battalion con- 
ducted a night attack to seize objectives, orient fires towards the enemy to the west and 
assist the forward passage of the armored task force. In terms of destruction of the 
OPTPOR, the attackers destroyed 66% of the enemy (Chapter II, Table 1, No. 11). 
[lowever, the attackers also suffered §0% casualties (Chapter II, Table 3; Nov jie 
the enemy vehicles destroyed, one 1s attributed to a hght force Dragon. In terms of 
Infantry casualties, it must be noted that OPFOR direct and indirect fires attritted one 
infantry Company to five personnel, rendered another ineffective, and produced hight 
cusualues on the third. Finally, as the heavy task force passed through the infantry 
positions, it became decisively engaged by OPFOR elements to the west and north not 
detceted tethe Healt tone css elie 

a. Battle Replay with GNATT IT 

GNATT 1] is the ARI--POM's General-purpose NTC Analysis Training 
Tool. GNATT I} provides a personal computer capability for graphical playback of the 
NTC data archive. GNATT 1] programs read four data files Which produce represent- 
ations of units, Weapon systems, engagements, and player positions. GNATT II enables 
the user to portray the battlefield (terrain is not depicted) with individual vehicles 
emplaced and identified according to data collected by the NTC’s instrumentation svs- 
tei and position location devices. [Ref. 14] 

The uuht of GNATT II, in the context of the hght infantry attack simu- 
lation, 1s that the user identifies the OPFOR vehicles by type, and extracts the actual 
enemy positions from an NTC battle. This data is entered into the OPFOR data file and 
read in by the AlodelEnemy Defense procedure, so that. the light infantry attack simu- 
lation better approximates the actual battlefield conditions. The baseline model repres- 
ents the enemy situation as indicated by the GNATT II display screen shown in Figure 
6 (only OPFOR vehicles shown). The remaining elements of the baseline model scenario 
follow from extracts of the NYC unit take-home package and operations overlays. 

2. Scenario Input 
a. Scheduling of Indirect Fires 
Indirect fires are one of the leading causes of infantry attrition at the NTC. 


The light infantry attack simulation provides a means of reducing infantry effectiveness 
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Range: 286126-436236 


Figure 6. GNATT IH Replay of AA89xxxx 


by reducing their strength with scheduled artillery effects. As indicated, indirect fires 
rendered two rifle companies ineffective during AA89xxxx. To ensure consistency be- 
tween the three modcled scenarios, indirect fires are scheduled against two companics 
during movement to the assault position, and against the third company while it is in the 
assault position preparing to engage targets. 

In terms of light force losses, the mean level of light force attrition for 500 
iterations is 33.9972%. ‘This may be interpreted in terms of the Survival MOE as ap- 
proximately 66%; however, there is insufficient data to compare with losses at the NIC. 


A sample attrition output file is contained in Appendix D. 


b. Forces 

(1) Opposing Forces. Vhe GNATT II display screen in Figure 6 indi- 
cates the positions of OPFOR vehicles during AA89xxxx. In particular, there are 14 
OPTOR vehicles in this battle, consisting of 11 BMPs, one T72, one BRDM, and one 
ZSU 23-4. In addition to the identification and location information, the user also in- 
puts the target orientation. Target orientation is simply the user’s estimate of the prin- 
cipal field of view for each target. Appendix B contains the identity, location, and 
orientation for cach OPFOR vehicle from AA89xxxx. The opposing forces scenario is 
identical for cach of the baseline model and the two alternative models. 

(2) Friendly Force Concept of the Operation. The scenario input for 
fricndly forces is read in by the AlodelOperationsOverlay procedure in the AfapRecon 
module. The light infantry battalion represented in the light infantry attack simulation 
Starts the mission at full strength, consisting of three nfle companics of three platoons 
each. Platoon starting strength includes two ATGM gunners with two missiles each. 
Friendly force structure 1s identical for all three tactical alternatives. Movement routes 
for the rifle companies are input to murror the original operations overlay for mission 
AA89xxxx, and objectives are assigned with corresponding targets for each objective 
area. The objectives differ from the original graphics only so that the unit ATGMs will 
be within range of the OPFOR positions indicated in the GNATT II display. The 
baseline model concept of the operation is depicted in Figure 7. 

3. Baseline Model Results 
As indicated previously, the baschne model can be characterized as a frontal 
attack. ‘The light forees begin the battle with 18 ATGM gunners, or 36 mussiles with 
Which to engage the enemy vehicles. In a tnal run of the model without OPFOR arti- 
lerv play, the hight force successfully destroyed nine vehicles. A sample engagement 
history is coutained at Appendix E. Returning to the Destroy MOE developed in 


Chapter IT, 


Total OPFOR Destroved 


Destray MOE = Sop ial @ Dine asta 


the resulting eflectiveness of an undetected, unattritted light force is approximately 64%. 
Although this level of effectiveness is unrealistic given the environment, it serves as a 
reference point, within the model architecture, to compare levels of effectiveness under 


less than ideal conditions. Subsequently, a run of the model with an artillery strike 
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Figure 7. Baseline Nlodel Operations Overlay 


directed at each company produced a Destroy MOE of approximately 57%, or eight 
OPFOR vehicles destroved. Furthermore, replicating the model through 500 iterations, 
the resulting mean Destroy MOE was 58.81%, with a variance of 0.0105, so that a 95% 


confidence interval on the mean destruction of OPFOR in this attack scenario 1s 
ro tee 00 Fhe 


Appendix F contains results of the baseline model, including the statistical summary for 


the replications and attack output files for both events with and without artillery. 
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D. A REAR ATTACK PLAN 
1. Concept of the Operation 
The rear attack plan assumes insertion of the force to a landing zone behind 
enemy lines. Movement routes position the friendly forces to the rear of the enemy prior 
to engagement. Companies retain objective and target assignments similar to the 
baseline model. The rear attack concept of the operation 1s depicted in Figure 8. 
2. Mfodet Results 
In a trial run of the model without OPFOR artillery. the light force successfullv 
destroved nine vehicles. or a Destroy MIOE for an unattritted force of 64.29%. A tal 
run of the model with an artillery strike directed at each company produced a Destrov 
MOE of approximately 57.14%. or erght OPFOR vehicles destroyed. Replicating the 
model through 500 iterations, the resulting mean Destrov MOE 1s 67.57%, with a 1.58% 
vanance. The resulting confidence interval on the mean destruction of OPFOR in this 


attack scenario 1s 
0.6647 < nu < 0.6867. 


Results of the rear attack model are contained in Appendix G. 


FE. A FLANK ATTACK PLAN 
1. Concept of the Operation: 

The flank attack plan assumes msertion of the force to a landing zone to the 
north of the enemy's positions. Movement routes position the forces on the northern 
flank of the enemy prior to engagement. The flank attack concept of the operation 1s 
depicted in Figure 9. 

2. Nfodelt Results 

In a trial run of the model without artillery, the light force successfully destroyed 
11 vehicles, a measure of effectiveness for an unattritted force of 78.57%. A tnal run 
of the model with artullery produced a Destroy MOE of approximately 50%, or seven 
OPFOR vehicles destroved. Replicating the model through 500 iterations, the resulting 
mean Destroy MOE was 63.30%, with a 1.96% variance, producing a confidence inter- 


val on the mean destruction of OPFOR in this attack scenario of 
0.6207 < np < 0.6453. 


Results of the flank attack model are contained mn Appendix H. 
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Figure 8. Rear Attack Operations Overlay 


F. COMPARISON OF RESULTS 

The results of the simulation experiment support the tactical assertion that it 1s to 
the attacker's advantage to approach the objective from a direction the enemy is not 
expecting. An advantage in this tactic is that it exposes an enemy weakness to the ef- 
fects of friendly direct fire weapon systems. In particular, it is generally the case that 
armored vehicles are less susceptible to weapons effects when struck from the front as 
opposed to the flank or rear. Typically, armor protection is increased on the frontal 
slopes of these vehicles, and the target silhouette, when viewed from the front, is mini- 


mized. Therefore, it is usually to the attacker’s advantage to infiltrate to a position to 


of 
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Figure 9. Flank Attack Operations Overlay 


the rear or the flank of the enemy to maximize the probability of hit and probability of 
kal. 

An initial comparison of the results of each scenario indicates a significant difference 
in the expected measure of effectiveness for frontal, flank, and rear attacks. This result 
is not offered as evidence to claim the superiority of one tactic over the other; however, 
it follows the intuition that, under similar conditions, units might be expected to achieve 
more destructive effect on enemy forces while attacking from the flank or rear, as op- 
posed to a frontal attack. Furthermore, this result tends to verify the utility of the model 
as a planning and analytic tool. Figure 10 depicts the range of the confidence intervals 


for each of the scenarios. This plot clearly indicates a difference between the scenarios. 
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However, Figure 1] depicts the probability density for the sample results of each sce- 
nario for 500 replications. Due to the amount of variation in the distributions of the 
results of each scenario. further analvsis to determine whether one scenario is statis- 


tically significantly different from another will reinforce these general conclusions. 
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Figure 10. Confidence Intervals for Each Scenario 


It is possible to reduce the variance of an output random variable without disturbing 
its expected value, thus yielding greater precision, i.e.,smaller confidence intervals (Ref. 
12: p. 349]. The method of common random numbers (CRN), is a variance reduction 
technique applied to measure the relative performance of the model under the three 
scenarios. Since each scenario is run under identical conditions, and calls to the random 


number generators produce synchronized streams of random numbers, it 1s desired to 
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Figure If. Scenario Distributions 


estimate the difference between the expected values of each scenario run, ¢€, and produce 
a confidence interval on this result. The output variables, or replication MOEs, Xz, , 
X,, and A;, , Where B, R, and F represent the baseline, rear, and flank attack scenarios 
respectively on the / th independent replication, are correlated random vaniables. By the 
method of common random numbers, letting Z,= Xpj,—4A,;, for j= 1,2,....7, then 


J 


Z(n) = SZ In is an unbiased estimator of ¢ = E(X,) — E(X,). Since the Z, ‘s are IID 


j=l 
random variables, 


Var(Z;) 
i 
Var(Xp)) os Var(Xp)) a 2Cov[Ap;,Xp)) 
— Hn ’ 


Var(Z(n)) = 


so that any positive correlation between Ap. and X;,, has Cov(Xp,,43,) > 0. Consequently, 
variance of Z(n) is reduced. (Ref. 12: p. 351]. Furthermore, the form of the confidence 


interval is 


Z(t) $ ty yeajrv/ SZ/M 


where s3 is the variance of the Z,’s [Ref. 8: p. 49]. 

The method of common random numbers is applied to each scenario, with results 
shown in Table 5. In each case, 0 1s not contained in the confidence interval, so it may 
be concluded that there is significant difference between results of the three scenarios. 
Interestingly, CRN reduced the total variance in the Rear-Baseline samples by 0.0066, 
or approximately 25.2%, reduced the variance in the Flank-Baseline samples by 0.0079. 
or 26.4%, and reduced the variance in the Rear-Flank samples by 0.0084, or 23.9%. 
Numerous factors contribute to these results, notably the specific input parameters for 
probability of kill. However, model validation, and the associated sensitivity analysis, is 


bevond the scope of this thesis. 


Table 5. RESULTS OF CRN TEST OF DIFFERENCE 









Confidence Interval 
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0.07527 0.09985 
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0.02833 0.05711 

















Standard 
Deviation 


Viean 
Performance 


0.08756 0.14024 
(Rear-Baseline) 
Ani “By 0.04484 0.14878 
(fFlank-Baseline) 
0.04271 0.16417 






















XR oar A Fj 
(Rear-Flank) 





43 


V. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

The purpose of the simulation study is to produce a modeling tool to experiment 
with and to analvze light infantry operations in a mid-to-high intensity environment. 
The NTC’s training environment and data collection capacity provide background in- 
formation. The initial data collection and analysis suggest almost negligible light force 
contribution to overall nussion effectiveness. There are several factors which contribute 
to light force effectiveness in this environment. The simulation model, then, provides a 
tool to analvze both: “What results might we have been able to achieve?”, and “What 
results might we have achieved if we had attacked this way?” 

The results from three different tactical experiments produced distinct measures of 
effectiveness, as measured in terms of OPFOR destruction. The results follow intuitive 
lines: flank and rear attacks would generally be expected to produce better results than 
a frontal attack. Because the model compares random numbers to input parameters, 
obviously the more accurate the input parameters. the more accurately the simulation 
results should compare with expected battlefield results. The model can be readily 
adapted to read such data. 

Using approximations of thé effectiveness of the Dragon mussile svstem against 
various OPFOR vehicles, the simulation results of the baseline model suggested that 
light infantry units operating at night should be able to achieve significantly better re- 
sults than are obtaimable at the CTCs. One possible explanation is the lack of a com- 
patible night firing MIILES device for the Dragon. 

As an initial modeling effort, this model represents a detailed simulation of the 
events on the battlefield, from movement along prescribed routes, to assignments and 
engagements of targets according to steps commonly used in training. This model, more 
than anything else, represents a low-cost, highly exportable planning and analysis alter- 
native to large scale combat models in use today. Its modular development allows ad- 
aptation to other models, and more importantly, allows growth and follow-on 


development to expand its utility. 


B. RECOMMENDATIONS 
One of the early assertions made in this research is the inability of our training 


centers to provide an environment which facilitates emploving forces against an enemy 


they are capable of defeating. Clearly, light infantry is an effective force in an environ- 
ment such as the NTC; however, the continued employment of light infantry against 
enemy armored and mechanized forces, in other than close terrain, is doctrinally unten- 
able. Doctrinal complementary force operations must stress the notion of employing 
light forces in operations against enemv battlefield operating svstems, other than his 
maneuver forces, to maxinuze their effectiveness and create a dilemma for the enemv. 
This model has several limitations, principally the lack of OPFOR direct fires. 
Continued development to improve such shortcomings will improve the results of the 
model in general. and more specifically. as a valuable tool for planning and analvzing 
complementary force operations. The scenarios developed to analyze employment of 
light forces in this research also consist entirelv of operations in which the light force 1s 
attacking the enemv’s heavy maneuver forces. However, further scenario development 
to portray OPFOR CS and CSS elements throughout the depth of the battlefield is en- 
tirely possible and may demonstrate the utility of the model in exploring employment 
of hght forces against targets other than heavy maneuver forces. Furthermore, in the 
context of heavy/light operations, the development of a complementary heavy force at- 
tack simulation would greatly improve this model's utility. The results of the light force 
Operations establish the input parameters for the heavv model, so that a more accurate 


picture of heavy'light effectiveness may be obtained. 
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APPENDIX A. MODSIM CODE 


A. ATTACK 

MAIN MODULE Attack; 

FROM SimMod IMPORT StartSimulation, SimTime, ResetSimTime; 
FROM CRTMod IMPORT ClearScreen; 


FROM 
FROM 
FROM 
FROM 
FROM 
FROM 
FROM 


FROM 


VAR 
Ls 
Li 

BEGI 
Cl 
Ru 


se 
Re 


FO 


Unit IMPORT BattalionObj; 

MapRecon IMPORT ModelOperationsOverlay; 
OPFOR IMPORT ModelEnemyDefense; 

Arty IMPORT ScheduleOPFORArty, Pk; 


Weapons IMPORT ReadMissileData; 
Globals IMPORT Setup, UnitNameType; 
Menu IMPORT RunMenul, numberOfReplications, 
replicating, walkingThru, CleanUp; 
MOE IMPORT Mean, MOEmean, ReportStats, 
meanMissionTime, percentAttrition, 
meanAttritionForThisKun, TotalOPFORlosses; 
j INDEGCER. 
ghtFighters : BattalionObj; 
N 
earScreen; 
nNenul; 
tup; 
adMissileData; 
R i:= 0 TO numberOfReplications - 1 


meanAttritionterlhiskhuw = 0.0), 


Mode lEnemyDefense; 
ModelOperationsOverlay; 
ScheduleOPFORArty; 
ResetSimTime(0. 0); 
NEW( LightFighters); 
ler walkingThru 
OUTPUT(' The battalion is executing the mission. "); 
ENDS ir 
TELL LightFighters TO Executeliissen, 


StartSimulation; 


MOEmean(i, FLOAT(TotalOPFORIlosses)); 


meanMissionTime := Mean(i, meanMissionTime, SimTime()/3600. 0); 
FOR j} := 0 TO 2 
meanAttritionForThisRun := Mean(j, meanAttritionForThiskun, 


Pk[ VAL( UnitNameType, j)] ); 
END FOR; 
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percentAttrition := Mean(i, percentAttrition, 
meanAttritionForThisRun); 


DISPOSE(LightFighters); 
DISPOSE(Pk); 
CleanUp; 
IF replicating 
OUTPUT( "Run number ",i+1,"' complete."); 
END IF; 
END FOR; 


ReportStats; 
OUTPUT("MISSION ACCOMPLISHED"); 
IF walkineThru 


OUTPUT(" Ended normally at:"); 
OUTPUT("'H + ", SimTime()/3600.0," hrs."); 
OUTPUT: 

ENDO? F : 


MWmPUl Look im file attack.out for results of the battle."); 


END MODULE. 
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B. GLOBALS 


DEFINITION MODULE Globals; 


FROM IOMod IMPORT StreamOb}; 
FROM RandMod IMPORT RandomObj; 


TEE 
UnitNameType = (A, B, cs Dy 
WeaponsStatusType = (HOLD, TIGHT, FREE); 
TargetStatusType = (missed, damaged, killed); 
TransType = (Foot, Truck, AirAscamie, 
VisCondType = (Day, Night); (* Visibility Conditicnecs 


MovementRateList = ARRAY INTEGER, INTEGER OF REAL; 
(** ARRAY TransType, VisCondType OF REAL; *) 


ConversionFactorList = ARRAY TransType OF REAL; 
(* to convert movement rates to m/sec *) 


PROCEDURE Setup; 


PROCEDURE ReadTransportationData; 


VAR 
OutputFile, 
EngagementHistory, 
AGEL telomere ;: Stream0b}; 
MovementRate : MovementRateList; 
CE : ConversionFactorList; 
WeaponsStatus : WeaponsStatusType; 
RegroupTime : VREAL: 
VisCond : VisCondiype; 
BDA, 
HitOrMiss, 
RandomCasualty, 
RoundGenerator : RandomObj; 

END MODULE. 
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IMPLEMENTATION MODULE Globals; 


FROM IOMod IMPORT StreamObj, FileUseType(Input, Output); 
FROM RandMod IMPORT FetchSeed; 
FROM Debug IMPORT TraceStream; 


PROCEDURE Setup; 
BEGIN 
WeaponsStatus := HOLD; 
VisCond := Night; 
RegroupTime := 150.0; (* 2 and a half minutes to regroup *) 
NEW COutputFile); 
ASK OutputFile TO Open("'attack. out’, Output); 
NEWCEngagementHistory); 
ASK EngagementHistory TO Open(''engage.hst', Output); 
NEW(CAttritionFile); 
Hom AttritionFile TO Open( ‘attrit. out , Output); 
NEWC BDA); 
ASK BDA TO SetSeed(FetchSeed(1)); 
NEWCHitOrMiss); 
ASK HitOrMiss TO SetSeed(FetchSeed(2)); 
NEW(RandomCasualty); 
ASK RandomCasualty TO SetSeed(FetchSeed(3) ); 
NEW( RoundGenerator); 
ASK RoundGenerator TO SetSeed(FetchSeed(4)); 
NEW( TraceStream); 
ASK TraceStream TO Open("trace. out’, Output); 
ASK TraceStream TO TraceOff; 
ReadTransportationData; 


END PROCEDURE; (* Setup *) 


(%* weer mw He we m mm ee em meme me mee mm ee meee ee ee eee ee eee eee eee eee ee oe) 
PROCEDURE ReadTransportationData; 
VAR 
i : INTEGER; 
TransportationDataFile : StreamO0bj; 
nilentry Sot one. 
BEGIN 
ie — 0; 


NEW(TransportationDataFile); 
ASK TransportationDataFile TO Open("trans. dat", Input); 
NEW(MovementRate, ORD(Foot)..ORD(AirAssault), ORD(Day)..ORD(Night)); 
NEW(CF, Foot..AirAssault); 
ASK TransportationDataFile TO ReadLine(nilentry); 
WHILE NOT ASK TransportationDataFile eof 
ASK TransportationDataFile TO ReadString(nilentry); 
ASK TransportationDataFile TO 
ReadReal(MovementRate[i,i] ); 
ASK TransportationDataFile TO 
ReadReal(MovementRate[i,it1] ); 
ASK TransportationDataFile TO 
ReadReal(CF[ VAL(TransType,i)] ); 
INC(i); 
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END WHILE; 
ASK TransportationDataFile TO Close; 
DISPOSE( TransportationDataFile); 





END PROCEDURE; (* ReadTransportationData *) 
END MODULE. 
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NITION MODULE Unit; 


SimMod IMPORT TriggerObj; 

GrpMod IMPORT StackOb}; 

MapRecon IMPORT PositionRecordType; 
OPFOR IMPORT EnemyVehicleObj; 


Globals IMPORT WeaponsStatusType, TransType, UnitNameType; 
itObj = OBJECT (* generic unit object *) 
myHQ een LObny 
identity : STRING; 
location : PositionkecordType; 
myFirePower Pea NY OB: 
moving, 

Bet, 

outOfATGMammo, 

engaging, 

engagementComplete, 
finalAssault : BOOLEAN; 
mvtStartlime, 

movementTime : REAL; 


ASK METHOD UpdateStatus; 
ASK METHOD SetLocation( IN position : PositionRecordType); 
TELL METHOD TargetHandover(IN target : EnemyVehicleOb}; 
PN Gia Pio hostt homes mon NG): 
TELL METHOD MoveTo (IN position : PositionRecordType; 
IN method : TransType); 
BeOBJECT; 


flePlatoonObj = OBJECT (UnitObj) 
mow METHOD PitInit( IN HQ : UnitObj; 
Lies STRING), 
ASK METHOD TakeCasualties(IN lossPercentage: REAL); 
imi tHOD OecupyrFiringPosition( IN firingPosition : STRING); 
ASK METHOD PrepareToEngage(IN pltTargetList : StackObj); 
TELL METHOD Engage; 
TELL METHOD InterruptEngage; 
TELL METHOD FinalAssault; 


END OBJECT; 


PlatoonList = ARRAY INTEGER OF RiflePlatoonObj; 


RifleCompanyObj = OBJECT(UnitObj ) 


unitName : UnitNameType; 

platoon : PlatoonList; 

targetList me LackObg.: 

alreadyFired ;: BOOLEAN; 
movementComplete : TriggerQObj; 

ASK METHOD CompanyInit(IN HQ PUD Ob 7; 
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IN Name : UnitNameType); 
TELL METHOD ExecuteMovementPlan; 
TELL METHOD ArtilleryInterrupt(IN casualtyAssessment : REAL); 
TELL METHOD AssignTargets; 
TELL METHOD Hold( IN target : EnemyVehicleObj; 
IN firingPosition + SiRINGs: 
Tei METHOD SAT Eack, 
TELL METHOD FinalAssault,; 
OVERRIDE 
TELL METHOD TargetHandover(IN target : EnemyVehicleOQb}; 
IN firingPosition = sikinGy 
ASK METHOD UpdateStatus; 
ENE OBIE e il 


CompanyList = ARRAY UnitNameType OF RifleCompany0Obj}; 


BattalionObj = OBJECT(UnitObj) 
company : CompanyList; 
execute ;: TriggerQObj; 

ASK (“METHOD @> ture. 
TELL NETHOD Execuvelins satou- 


OVERRIDE 
ASK METHOD UpdateStatus; 
ENOSO BE eae 
VAR 
i 7) EGER: 
name : UnitNameType; 
firstTimeset : BOOLEAN; 


END MODULE. 


IMPLEMENTATION MODULE Unit; 


FROM SimMNod IMPORT SimTime, TriggerObj, Interrupt; 
FROM UtilMod IMPORT Delay, MicroDelay; 

FROM CRTIMod IMPORT ClearScreen; 

FROM GrpMod IMPORT estackOb}; 

FROM MathMod IMPORT GEE; 


BROM FPC DibOrt —reop ;: 

FROM OPFOR IMPORT EnemyVehicleOb}; 

FROM Arty IMPORT Pk, ImpactTimeA, ImpactTimeB, ImpactTimeC; 
FROM Menu IMPORT walkingThru, playingArty; 


FROM Globals IMPORT ALL TransType, VisCond, MovementRate, CF, 
ALL UnitNameType, RegroupTime, OutputFile, 
EngagementHistory, WeaponsStatus, 
ALL WeaponsStatusType; 

FROM MapRecon IMPORT Distance, PositionRecordType, ALL SymbolType, 
UnitTargetList, UnitRoute; 


See ee Orb Ce Rl Ge wees Oe ee CeO Oe Gee SR AG a Ge ge GR ee ee ee 


BP SR EI NS oo arin hae |ooine ig de pr tae t ir kae ge lay Lax lecigit atari er ise lec ve ioe loc larise) artes l crisel or ioc) gelaklee oe eriorise ee aciarine ok ise bats 7) 


OBJECT “UnitObj; 


(* sesesesessdeckescvlesescdescvescscsevededeslessvesesvvlesesedesescsevedesevledeskdlesevedcdcvlesededededededevdeseslcsledeveslestede ve sak ac *) 


ASK METHOD SetLocation( IN position : PositionRecordType); 
VAR 
moe: FPCOD}; 


BEGIN 

fpc := myFirePower; 

location := CLONE( position); 

ASK fpc TO SetLocation( location. coordinate); 
END METHOD; (* SetLocation *) 


ASK METHOD UpdateStatus; 
VAR 
foc: FPCOb); 


BEGIN 
fpce := myFirePower; 
IF NOT finalAssault 
set >= ASK fpc ready; 
engagementComplete := ASK fpc firingComplete; 
IF engagementComplete OR set 
ASK myHQ TO UpdateStatus; 
END IF; 
END IF; 
engaging >= ASK fpce engaging; 
outOfATGMammo := ASK fpc outOfATGMammo; 
END METHOD; (* Platoon UpdateStatus *) 


TELL METHOD TargetHandover(IN target : EnemyVehicleObj; 
TN Tift Osition - olRING); 
BEGIN 
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TELL myHQ TO TargetHandover(target, firingPosition); 
END METHOD; 


TELL METHOD MoveTo (IN position : PositionRecordType; 
IN method : TransType); 


VAR 
distance, mvtRate : REAL; 
remMvtTime PURE AL- 
BEGIN 
moving = TRUE; 
mvtStartTime := SimTime(); 
distance = Distance( location. coordinate, position. coordinate); 
mvtRate = CF[ method] * MovementRate[ ORD(method) ,ORD(VisCond)] ; 
movementTime := 


distance/mvtRate; 

WAIT DURATION movementTime 
DESPOSEClecatzemr 
location >= position; 
moving FALSE; 

ON INTERRUPT (* determine remaining movement time *) 
remMvtTime := movementTime - (SimTime() - mvtStartTime); 
WAIT DURATION RegroupTime + remMvtTime 

DISFOSEC locat tom. 
location := position; 


io Wt 


moving FALSE; 
END WAIT; 
END Wai 
END SME THO: (* MoveTo *) 


q ¢ + . ° ¢ 
iE 2 rane) amas 
END OBJECT; ( nitOb} 
es TU PT HV Hd. RX OL EX FR PR ER ER PHYO FY OY HR EDS ER ER ES EX FE CR CR EX EL TR EL ER ER EX EX FR ER ER CR ER ER EX FX EL ER ER OX FR EL ED GE HD EX OV ED FRED river ty OV EV eV Ad er. Ed er @y 
° . 
OBJECT RiflePlatoonOb}; 
3 
ate we =e ae ate ae ne we wi on's =e a) ae ae = wn one a's a) we ae a's a's we aten’eu's ae alte ae a's we ate ale a’e ae aw wee a's ate we Sous aeule we ute we we ale wwnle weno wleals ule alone ate ate we ae ao ae 
er ER ERED EDL ERODED EV FL FLOR ER ER ED EL ES FR FL EV EV ER ER EL ESN ER EV ADLER EX ER ER EX. ERS ER OL ER ER EL EDS ER ER FH EL EDR ER EL EDL ER ER EV EY CX CR ECR ER EXEL CL EL EX ERE FY eer 


ASK METHOD Pitinit(IN HO = Unaeon a: 
IN-Ad + StRiNG). 


VAR 
LPG =e PeECeby. 
BEGIN 
myHQ Sen 
identity = id: 
location = CLONECASK myHQ location); 


NEw Ufpenr 
ASK fpe TO FPCini tl Shin. 
myFirePower '= fpe; 

END METHOD, (* Pitiniute-. 


ASK METHOD TakeCasualties(IN lossPercentage : REAL); 
VAR 


ipe: VEECGby, 


BEGIN 

PICs: — My tirePower; 

ASK fpc TO DecrementFPC( lossPercentage); 
ENO METHOD: (* TakeCasualties *) 


TELL METHOD OccupyFiringPosition(IN firingPosition : STRING); 
VAR 

pC me PCOon: 

mvtTime : REAL; 


BEGIN 
engaging := TRUE; 
fpc := myFirePower; 
IF location. coordinate = firingPosition 
mvtTime := 0.0; 
ELSE 
mvtTime := Distance( location. coordinate, firingPosition) / 
(CF[ Foot] * MovementRate[ ORD( Foot), ORD(VisCond)] ); 
ENDL: 
WAIT DURATION mvtTime 
location. coordinate := firingPosition; 
END WAIT; 


Bok fpc TO SetLocation(firingPosition); 
Peel nHOD,;  (* OccupyFiringPosition *)} 


ASK METHOD PrepareToEngage(IN pltTargetList : StackObj); 
VAR 


pe. FPCOD); 
BEGIN 
engaging := TRUE; 
pC := myFirePower; 


Hell fpe TO PreparelToFire(pltlargetList); 
END METHOD; (* PrepareToEngage *) 


( a a a oe ae ew ee ee ew ew ec ee ee wee ee ee ee me ee ew Owe ee ew ew eee ewes eeeee= YF ) 
TELL METHOD Engage; 
VAR 
foe:  FPCOD]; 
BEGIN 
fpce := myFirePower; 


Poi tpc TO Fire; 
END METHOD; (* Engage *) 


TELL METHOD InterruptEngage; 
VAR 
apes FPCOD), 


BEGIN 
ipe *= yr irerPowen: 
TELL tpe 10 Interruper ise 
END METHOD; (* InterruptEngage *) 


TELL METHOD FinalAssault; 
VAR 
fpe-- Preeb, 


BEGIN 
fpc := myFirePower; 
finalAssault := TRUE; 
TELE tpc TO FimalAssamie. 

END METHOD; (* FinalAssault *) 


END GEJECd: (* KiflePlatoon0b jy.) 


ae ale ateale we ale wleu's ae e's ale ate ae wo ulou's ale we ae ae ae ate ae ae ae ate ate ate ate ale a's ate ale ale ate ate ale we ale ute aleou'te ate we ale wewde wte ale ale ate ate ate weuls ale ate ale we we a's ale ale we ale 
er EV FV FR OY FR Gu Gh £9 GS FR FL GB ID FR IH FR FR FR. HY CV FR. FE FX FH FH FY FR EUV ER. GR FY FX FRED FRED ER ED ERD ERE. ER FX IB ERX FR ER ERED ERED EFR, EREBDER EXER FRED ER FCS FS ev 
t a 
OBJECT Rif leCompanyOb}; 
S 
ale alone n enton'wateon'on'antoulss'on'on'on’ su’ se'an aalae'eulon snlen ac'eu'an eulen'en oe 
er er ¢% AV FV EV EUV GB FX. St FR ERX EX. FE GR AB FRX. ddd Hd 4d 


ASK METHOD CompanyInit( IN HQ : Unae0isy; 
IN Name : UnitNameType); 
VAR 
eae : RiflePlatoonOb}; 
pel Dee oth LNG: 


BEGIN 
CASE Name 
WHEN A > pitlD === Ao - 
WHEN B : pltID := "BO; 
WHEN C : pltID := "CO'; 
END CASE; 
unitName = Name; 
myHQ =O. 
location = UnitRoute[ unitName] ; 
alreadyFired = FALSE; 
targetList >= UnitTargetList[ unitName] ; 


NEW(movementComplete); (* trigger object *) 
NEW( platoon ten 
FOR i:= 1 TO 3 
NE Wii t yt 
REPLACE( p1tID, 232. INDTIO@STR ae 
ASK plt TO Pltinie(SELFyeee ii 
platoon{i}] := plt; 
ENDSEOR: 
END METHOD; (* CompanyInit *) 


TELL METHOD ExecuteMovementPlan; 
BEGIN 
WHILE ORD(C location. symbol) < ORD(ASLTPSN) 


LE walkingThru 
OUTPUT(’ Company ",unitName,'' currently in 
MicroDelay(500000), 
END IF; 
WAIT FOR SELF TO MoveTo( location. nextPosition, Foot) 
END WAIT; 
END WHILE; 
POR 2 2:= 1 TO 3 
ASK platoon{i] TO SetLocation( location); 
WAIT FOR platoon[i] TO 
OccupyFiringPosition( location. firingPositions| i] ) 
END WAIT; 
END FOR; 
IF walkingThru 
OUTPUT(’ Company ",unitName,' is in the ",location. symbol); 
END ik 
AssignTargets; 
END METHOD; (* ExecuteMovementPlan *) 


TELL METHOD AssignTargets; 
VAR 
numTgtsInPlitList, 
closestPlt, 
nextClosestPlt, 
farthestPlt, 
ieee, numin, 
shortestDistance, 
farthestDistance S LNTEGER. 
distToFarthest, 
distOut REAL: 
farthestTarget, target : EnemyVehicleObj; 
chosen = ARKAY LNIEGER OF PNTEGER; 
distance > ARRAY INTEGER OF SI NTEGER: 
PitTargetList. : ARRAY INTEGER OF StackObj; 


BEGIN 
REw(ritiargetList, 1..3); 
NEW(P1tTargetList[ 1] ); 
NEWCPitlameetbist| 2} ); 
NEW(PitTargetList[ 3] ); 
NEWC Chosen, deed): 
NEW( distance, 1..3); 
numIn := ASK targetList numberIn; 
numTgtsInPltList := CEIL(FLOAT(numIn)/3.0); 
WHILE ASK targetList numberIn > 0 


numin := ASK targetList numberIn; 
target := ASK targetList First(); 
distToFarthest := Distance( location. coordinate, ASK target 


location); 
farthestTarget := target; 


(* find the target farthest away... *) 


ie num ine 


ai 


', location. symbol); 


FOR k.:= 1 TO Gigi ngaee 
target := ASK targetList Next(target); 
distOut := Distance( location. coordinate,ASK target location); 
IF distOut > distToFarthest 
farthestTarget := target; 
distToFarthest := distOut; 
END GE. 
END FOR; 
END VIE: 


(* ... and assign it to the closest™plauocn ass) 
FOR je2= -lalOae 


chosen| j] 
distance[ }] 


3; 

ROUND(Distance(ASK platoon[ j] 

location. coordinate, ASK farthestTarget 
location) ); 


END) FOR; 
shortestDistance := MINOF(distance[ 1} ,distance[ 2] ,distance[ 3] ); 
farthestDistance := MAXOF(distance[ 1] ,distance[ 2] ,distance[ 3] ); 
IF shortestDistance = distance[ 1] 
closestPlt := 1: 
chosen[1} := 100; 
ELSIF shortestDistance = distance|[ 2] 
closestPlt -= "2, 
chosen|[ 2] = 100; 
ELSE 
closestPlt := 3; 
chosen|[ 3] = 100; 
EIN Der. 
IF farthestDistance = distance[ 1} 
farthestPlt := 1; 
chosen|[ 1} c= LOO; 
ELSIF farthestDistance = distance[ 2] 
farthesthi:= Z: 
chosen 2] . = 100; 
EES 
farthestPlt := 93: 
chosen|[ 3] = 100; 
END IF. 


nextClosestPlt := MINOF(chosen[ 1} ,chosen[ 2] ,chosen[ 3] ); 
IF ASK PltTargetList{closestPlt} numberIn < numTgtsInPltList 
ASK PltTargetList[closestPlt] TO Add(farthestTarget), 
IF walkingThru 
OUTPUT("platoon ",closestPlt,'' gets tgt 
idNumber); 


,ASK farthestTarget 


END LF: 
ELSIF ASK PltTargetList{nextClosestPlt] numberIn < numTgtsInPltList 
ASK PltTargetList[nextClosestPlt] TO Add(farthestTarget); 
IF walkingThru 
OUTPUT( "platoon ",nextClosestPlt, gets tet) nen 
farthestTarget idNumber); 


ENDoIF: 
ELSE 
ASK PltTargetList{ farthestPlt}] TO Add(farthestTarget); 
IF walkingThru 
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OUlPULG@erlctsonmestarthestPlt,  cetcutotm nok 
farthestTarget idNumber); 
END IE: 

END IF; 
ASK targetList TO RemoveThis(farthestTarget); 
END WHILE; 
IF walkingThru 

Delay(3); 

ClearScreen; 
FN IF: 
POnei :— | TO 3 

ASK platoon[ i] TO PrepareToEngage(PltTargetList[ i} ); 
END FOR: 
itor OSE (chosen ): 
MiseOsetaistance ); 

END METHOD; (* AssignTargets *) 


TELL METHOD Hold(IN target : EnemyVehicleOQbj; 
liiiertringPosition : STRING); 


BEGIN 
IF NOT alreadyFired 
WAIT FOR movementComplete TO Fire 
alreadyFired := TRUE; 
WAIT DURATION RegroupTime 
TargetHandover(target,firingPosition); 
END WAIT; 
END WAIT; 
Fly Ee 
WAIT DURATION RegroupTime 
TargetHandover(target,firingPosition); 
END WAIT; 
END IF; 
HNP eMETHOD; (* Hold *) 


ASK METHOD UpdateStatus; 
VAR 
readyToMove : BOOLEAN; 


BEGIN 
readyToMove := FALSE; 
FOR i@= ] TO 3 
IF NOT ASK platoon[i] set 
set := FALSE; 
BAL 
ELSE 
set := TRUE; 
BND aie 
END FOR; 


IF set AND NOT finalAssault 
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ASK myHQ TO UpdateStatus; 
ENDIF, 


IF location. symbol = ASLTPSN 
FOR 2) 3 — eee 
IF NOT ASK platoon[i] engagementComplete 
readyToMove := FALSE; 
eel le 
Boe 
readyToMove := TRUE; 
END IF; 
END FOR; 
ENDS. 


IF (readyToMove) AND (NOT finalAssault) 
finalAssault := TRUE; 
FinalAssault; 
END 
END METHOD; (* Company UpdateStatus *) 


TELL METHOD ACtack: 
BEGIN 
FOR iy =—ae 10r3 
TELL platoon[i] TO Engage; 
END FOR; 
END METHODS 3: Attack.) 


TELL METHOD FinalAssault; 
BEGIN 
WAIT FOR SELF TO MoveTo( location. nextPosition, Foot) 
IF walkingThru 
IF firstTimeSet 
Delay(5); 
ClearScreen; 
firstTimeset := FALSE; 
END IF; 
END IF; 
FOR i := a D053 
ASK platoon| i} TO SetLocation( location), 
WAIT FOR platoon[i] TO 
OccupyFiringPosition( location. firingPositions|[ i] ) 
END WAIT; 
END FOR; 
FORwa =. loos 
TELL platoon[i] TO FinalAssault; 
END FOR; 
END WAIT; 
IF walkingThru 
OUTPUT("Company ",unitName," now in ",location. symbol); 
END IF; 
TELL movementComplete TO Trigger; 
END METHOD; (* FinalAssault *) 
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( ea an aaa ao a a a a hao oo oom nao nane eae ea beeen tence ow aacweee a ) 


TELL METHOD TargetHandover(IN target : EnemyVehicleObj; 


IN firingPosition sees IKING); 

VAR 

j, closestPlt aT eGER: 

dist, shortestDist : REAL; 

handedOver, 

candidate, 

ammoAvail, 

pitInkange ; BOOLEAN; 

pltTargetList wotackOb]; 

unassignableTarget : EnemyVehicleObj; 

Ammo, Busy ; ARRAY INTEGER OF BOOLEAN; 
BEGIN 

NEW(pltTargetList); 


NEWC Ammo, 1..5); 
NewCBusy, 1..3); 


handedOver := FALSE; 
pltInRange := FALSE; 
candidate = FALSE; 
ammoAvail := FALSE; 


ASk pltTargetList TO Add(target); 
FOR i:= 1 TO 3 
ASK platoon[i] TO UpdateStatus; 
ED FOR; 
WAIT DURATION RegroupTime; (* until all platoons complete firing *) 
HOR i := 1 TO.3 
IF NOT ASK platoon[i] outOfATGMammo 


Ammo[ i} >= TRUE; 

ammoAvail := TRUE; 
ELSE 

Ammo[ i] = FALSE; 
ND IF; 


IF (NOT ASK platoon[i}] engaging) AND 
(NOT ASK platoon[ i] outOfATGMammo) 


Busy[ i] = FALSE; 
candidate := TRUE; 
Eo 
Busy[ i] = TRUE; 
Ew) iF: 
END FOR; 


IF ammoAvail 
IF candidate 
B@R i := let 3 
IF (NOT Busy[i}] ) AND (Ammo i] ) 
dist := Distance(ASK platoon[ i] location. coordinate, 
ASK target location); 
ligaists— 1000.0 
IF walkingThru 
OUTPUT("Company ",unitName," handing over target ",ASK 
target idNumber); 
GUNEUTC” to platoon 41); 
ASK EngagementHistory TO WriteString("'Handing over "); 
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ASK EngagementHistory TO WriteInt(ASK target 

idNumber ,3); 
ASK EngagementHistory TO WriteString(" to platoon "); 
ASK EngagementHistory TO WriteString(ASK platoon[ i} 


identity); 
ASK EngagementHistory TO WritelLn; 

END ele: 
ASK platoon[ i] TO PrepareToEngage(pltTargetList); 
handedOver := TRUE; 
pitInRange := TRUE; 
El 

Eee 

END re. 
EXD FOR 


IF NOT plitInRange 
(* Since no platoon is currently in range, find the closest platoon 
and move it to the firing position. *) 
shortestDist := 5000.0; (*arbitrary starting distance*) 
POR? 1 2= enews 
IF (NOT Busy[i] }) AND (CAmmo[ i] ) 


dist := Distance(ASk platoon[i}] location. coordinate, 
firingPosition); 
If dis’ <"“snhortestlace 
elosestrPit <= 4. 
shortestDist := dist: 
ENE IE. 
END ane 
END FOR; 


IF NOT (closestPlt = 0) 

WAIT FOR platoon{closestPlt] TO OccupyFiringPosition( firingPosition); 
ASK platoon[closestPit] TO PrepareToEngage(pltTargetList); 
be. walkinedieu 

OUTPUT("Moving platoon ",ASK platoon[closestPlt] identity); 
OUTPUT("' to new position to engage ",ASK target idNumber); 
END SIF: 
handedOver := TRUE; 

END WAIT; 

ELSE 
Hold(target, firingPosition); 

END? UF; 

BND IF; 

ESE 
Hold( target, firingPosittem); 
END GLE. 


ELSE 


IF walkingThru 
OUTPUT("'Unable to handover target ‘',target. idNumber); 
ASK EngagementHistory TO WriteString("Unable to handover "); 
ASK EngagementHistory TO WriteString("target "); 
ASK EngagementHistory TO WriteInt(target. idNumber,4); 
ASK EngagementHistory TO WriteLn; 
END IF; 
unassignableTarget := ASK pltTargetList TO Remove(); 


END It; 
END WAIT; 
DISPOSE( Ammo); DISPOSE( Busy); 
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END METHOD; (* TargetHandover *) 


( [ ese eset en me ee eee eee ew eee e eee eee ee wee mee wwe ecec ecm w eee ew meen nee eanaanane ss ) 
TELL METHOD ArtilleryInterrupt(IN casualtyAssessment : REAL); 
BEGIN 

IF walkingThru 
OUTPUT(’ Company ",unitName,' receiving fires vicinity ", 
location. symbol); 
OUTPUT(" ...Casualty assessment is '',casualtyAssessment); 
Delay(2); 
END LE: 
IF moving 
Meer rUpt Coeur Hovelo ); 
POR i := 1. 71073 
ASK platoon[i] TO TakeCasualties(casualtyAssessment); 
END FOR; 
ELSE 
POR i =i. 7S 
TELL platoon{i] TO InterruptEngage; 
ASK platoon[i] TO TakeCasualties(casualtyAssessment ); 
END FOR: 
BND IF; 
BNOSMETHOD; (* ArtilleryInterrupt *) 
END OBJECT; (* RifleCompanyObj *) 
SU ye os so we ae en In eae ce Cae trae Te Skee Cee ER TCO TCISD TS TE TUTE TOTO TC TR TCT C TCT TN TOURER TOTO TOT TS DOTS TOUT we) 


eect peace) 


(* Sevesies' s'eslestestes'e ste le Je e ute fe we sleclevesios es‘evesles fewlesloute stesvles es'eves sleslevesevesic 


VTE ETT OTE BCR TS 7) 


ASK METHOD ObjInit; 


VAR 
EO ; RifleCompany0Obj; 
BEGIN : 
NEW( execute); Ge ieclcvemsOnyecta. |) 


NEW( company, A..D); 
FOR name := A TO C 
NEW( co); 
ASk co TO CompanyInit(SELF, name); 
company[name] := co; 
END FOR; 
PeOetHETHOD; (* ObjInit *) 


TELL METHOD ExecuteMission; 
BEGIN 
FOR name := A TO C 


TELL company[name] TO ExecuteMovementP lan; 
END FOR; 


IF playingArty 
TELL company[ A] TO ArtilleryInterrupt(Pk[ A] ) IN ImpactTimeA; 
TELL company[B] TO ArtilleryInterrupt(Pk[B]) IN ImpactTimeB; 
TELL company[C] TO ArtilleryInterrupt(Pk[C] ) IN ImpactTime(C; 
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END ITE; 


WAIT FOR execute TO Fire (* Update status releases *) 
(* To execute a simultaneous attack.... *) 
Weaponsstatus := FREE; 


firstTimeSet := TRUE; 
IF walkingThru 
OUTPUT("Executing a synchronized attack."); 
Delay(2); 
ClearScreen; 
END DE 
FOR name := A TO C 
TELL company[ name] TO Attack; 


BND EOR: 

BNU ys 
END METHOD; (* ExecuteMission *) 
( ee a ee *) 
ASK METHOD UpdateStatus; 
VAR 

allUnitsSet : BOOLEAN; 
BEGIN 

allUnitsSet j= PALSE: 


FOR name := A TOC 
IF NOT ASK company[ name] set 
allUnitsSet := FALSE; 
Eee: 
BLoe 
allUnitsSet := TRUE: 
ENDO oF. 
BND FOR. 


IF allUnitsSet 
TELL execute TO Trigger; 
END IF. 
END METHOD; (* Battalion UpdateStatus *) 
END OBJEC®: 


END MODULE. 


D. FPC 


Wer iNiTION MODULE FPC; 


FROM GrpMod IMPORT StackObj; 


FROM Unit HP OR DU nit Oba; 
PROM OPFOR IMPORT EnemyVehicle0Ob}; 
meer 
TrooperType = (rifleman, autorifleman, grenadier, machinegunner, 


dragongunner, leader); 
StrengthList = ARRAY TrooperType OF INTEGER; 


ATGMList = ARRAY INTEGER OF ANYOBJ; 
(* ARRAY INTEGER OF ATGMObj *) 


FPCObj = OBJECT; 


(* Generic rifle platoon firepower capability *) 


myHQ Uinta bale 

raenti ty. 

location STRING; 

engaging, 

ready, 

outOfATGMammo, 

firingComplete, 

finalAssault BOOLEAN; 

strength StrengthList; 

missileSection : ATGMList; 

ao METHOD FrPCinit( IN HQ : UnitOb}); 

ASK METHOD DecrementFPC(IN lossPercentage : REAL); 
ASK METHOD UpdateStatus; 

ASK METHOD SetLocation( IN coordinate : STRING); 
TELL METHOD PrepareToFire(IN pltTargetList : Stack0Obj); 
TELL METHOD ReAssign( IN target : EnemyVehicleObj); 
TELL METHOD Fire; 

TELL METHOD FinalAssault; 

TELL METHOD InterruptFire; 


END OBJECT; 
END MODULE. 
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IMPLEMENTATION MODULE FPC; 


FROM GrpMod IMPORT StackObj; 

FROM Unit IMPORT Unitob]), 

FROM ATGM IMPORT ATGMOb}; 

FROM OPFOR IMPORT EnemyVehicleO 

FROM Menu IMPORT walkingThru; 

FROM Globals IMPORT RandomCasualt 
EngagementHis 


OBJECT FPCOb}; 


ASK@NETHOD FPCInitC TN ge: Wei 
VAR 
of INTEGER: 
dragon ATGMObj; 
templId STRING; 
BEGIN 
myHQ = 
eT Gta = 
location = 
engaging = 
ready = 
outOfATGMammo = 
firingComplete = 
finalAssault = 


NEW( strength, rifleman.. lead 
strength{ rif leman] 
strength{ autorifleman] 
strength[ grenadier] 
strength{ machinegunner] 
strength| dragongunner! 
strength[ leader] 
templId 
NEWCmissileSection, 1..stren 
FOR i := 1 TO strength{ drago 
NEW( dragon); 

REPLACE(tempId,3,3,INTIOS 

ASK dragon TO ATGMInit(SE 

missileSection{i] := drag 
END FOR; 


bu ue fh mom at 


END) METHOD: (* PRPCina te 

( see ee = ea es ae oo = oe alee alee ale eee ee 

ASK METHOD DecrementFPCCIN los 
VAR 

TrooperTly 


i, numSoldiers, 
numLosses, 


dragonLosses YUNG GIR: 
loss, runningSum : REAL; 
dragon ATGMOb }; 


Dy; 


y, ALL TargetStatusType, 
tory, RegroupTime, AttritionFile; 


tO0bj); 


HQ; 

ASK myHQ identity; 

ASK myHQ location. coordinate; 
FALSE; 

PALOE: 

FALSE; 

FALSE: 

FALSE; 

er); 

11; 
6; 
6; 
2; 
2; 
Oe 
identity, 

gth[ dragongunner] ); 
ngunner] 


TRC 
LF, tempId); 


on; 


) 


sPercentage : 


pe, 
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BEGIN 


dragonLosses := 0; 
numSoldiers := 1; 
FOR j := rifleman TO leader 
numSoldiers := numSoldiers + strength| j]; 
END FOR; 
numLosses := TRUNC(FLOAT(numSoldiers - 1) * lossPercentage); 
FOR i := 1 TO numLosses 
numSoldiers := numSoldiers - 1; 
j := rifleman; 
runningSum := FLOAT(strength[ j] )/FLOAT( numSoldiers); 
loss := ASK RandomCasualty Sample(); 
LOOP 


IF loss < runningSum 


strength[ j] 


Strength) j)\a= a 


IF j = dragongunner 
INC(dragonLosses); 


ENom rE: 

BAG: 
EGor 

INC( j); 


runningsum : 


END Te; 


END LOOP; 


END 


POR: 


IF dragonLosses > 
IF dragonLosses 
outOfATGMammo 


ready 
engaging 


firingComplete : 


“a 


i 


runningSum + FLOAT(strength[ j] )/FLOAT(numSoldiers); 


TRUE: 
TRUE; 
FALSE; 
ROE. 


ASK myHQ TO UpdateStatus; 
END IF; 
IF walkingThru 


OUTPUT(" a 


END IF; 


PORy1 7— 


,identity, 


" dragon losses = ",dragonLosses); 


2 DOWNTO (3 - dragonLosses ) 


dragon := missileSection|[ i]; 
IF NOT (ASK dragon assignedTarget = NILOBJ) 
ReAssign(ASK dragon assignedTarget); 


ENTS ; 


END FOR; 


END 


re; 


IF walkingThru 


ASK 
ASk 
ASK 
ASK 
ASK 
ASK 
ASK 
FOR 


AtteritionFile 
AttritionFile 
AttritionFile 
AttritionFile 
AttritionFile 
AttritionFile 
AttritionFile 
j := rifleman 


WriteString("Attrition to platoon " + identity); 
WriteStming@ with ”'); 

WriteInt(numLosses ,4); 

WriteString(" losses.''); 

Writebn; 

WriteString("Strengths for each class of soldier’); 
Writelbn; 

leader 


CASE j 
WHEN rifleman : 
ASK AttritionFile TO WriteString(‘rifleman a) 


67 


WHEN autorifleman : 

ASK AttritionFile TO WriteString("autorifleman "); 
WHEN grenadier : 

ASK AttritionFile TO WriteString("grenadier SE 
WHEN machinegunner : 

ASK AttritionFile TO WriteString("machinegunner "); 
WHEN leader : 


ASK AttritionFile TO WriteString("leader ). 
OTHERWISE 
ASK AttritionFile TO WriteString("dragongunner '"); 
END CASE; 


ASK AttritionFile TO WriteInt(strength| j] ,3); 
ASK AttritionFile TO WriteLn; 


END FOR; 
BNO Es 
END METHOD; (** DecrementFPC *) 
Co 7) 
ASK METHOD SetLocation(IN coordinate : STRING); 
VAR 
i » SINTEGER: 
dragon : ATGMOb}; 
BEGIN 
location := coordinate; 


IF strength[{ dragongunner] > 0 
FOR i:= 1 TO strength[ dragongunner] 
dragon := missileSection{ i]; 
ASK dragon TO SetLocation(coordinate),; 
ENDO OR: 
ENDS TE; 
END TETneD, (* SetLocation *) 


ASK METHOD UpdateStatus; 
VAR 
i ; INTEGER: 
dragon : ATGMObj; 


BEGIN 
IF strength{dragongunner] > 0 


IF NOT finalAssault 


FOR i:= 1 TO strength[ dragongunner] 
dragon := missileSection| i] ; 
IF NOT ASK dragon ready 
ready := FALSE; 
Basie: 
BESE 
ready := TRUE; 
END IF; 
ENDOEOR, 


FOR 1 := 1 TO strength] dragongunner] 
dragon := missileSection|{ i]; 
IF NOT ASK dragon firingComplete 
firingComplete := FALSE; 
Fe le 
ELSE 
firingComplete := TRUE; 
BND oir: 
END FOR; 


IF ready OR firingComplete 
ASK myHQ TO UpdateStatus; 
END TE: 


ENO TE: 


FOR i := 1 TO strength/ dragongunner] 
dragon := missileSection| i]; 
IF ASK dragon missile. ammoCount > 0 
outOfATGNammo := FALSE; 
Pel 
ELSE 
outOfATGMammo := TRUE; 
BND? LE: 
END FOR; 


FOR i := 1 TO strength[ dragongunner] 
dragon := missileSection| i]; 
IF ASK dragon engaging 
engaging := TRUE; 
Eel Ts 
ELSE 
engaging := FALSE; 
END Ore. 
END FOR; 


IF (outOfATGNammo) OR (NOT engaging) 
ASK myHQ TO UpdateStatus; 
END IF; 


END IF; 
END METHOD; (* UpdateStatus *) 


TELL METHOD PrepareToFire(IN pltTargetList : StackObj); 
VAR 
1, j, numTargets : INTEGER; 


dragon : ATGMObj; 
wet : EnemyVehicleObj; 
passed : BOOLEAN; 
BEGIN 
Nea ak 


numTargets := ASK pltTargetList numberIn; 
FOR i:= 1 TO numTargets 
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passed := FALSE; 
tgt := ASK pltTargetList TO Remove(); 
IF j > strength[{ dragongunner] 
TELL myHQ TO TargetHandover(tgt, location); 
passed := TRUE; 
ELSE 
LOOP 
dragon := missileSection| j]; 
IF ASK dragon missile. ammoCount > 0 
TELL dragon TO Target(tgt); 
passed := TRUE; 
engaging := TRUE; 
IF (numTargets = 1) AND (j < strength{ dragongunner] ) 
dragon := missileSectionf[ j+1]; 
TELL dragon TO °Ware 
END its 
EAdgle 
ENDS: 
INC( 3); 
IF j > strength[{ dragongunner] 
Ext. 
END aie; 
END LOOP; 
IF NOT passed 
TELL myHQ TO TargetHandover(tgt, location); 


END IE: 
END IF; 
PCC: 
END FOR; 
END METHOD; (* PrepareToFire *) 

(%* wee mew me www wm eww ew we wee ee ww em wwe we wee ee wwe meee ewww eee ewes ee eee oe) 
TELL METHOD ReAssign(IN target : EnemyVehicleOb}j); 
VAR 

a 7 J I NUEGER: 

reassigned : BOOLEAN; 

dragon : ARGHOG]: 
BEGIN 


reassigned := FALSE; 
WAIT DURATION RegroupTime 
UpdateStatus; 
IF NOT outOfATGMammo 
FOR i := 1 TO strength[ dragongunner] 
dragon := missileSection| i]; 
IF (ASK dragon missile. ammoCount > 0) AND 
(ASK dragon targetStatus = killed) 
IF walkingThru 
OUTPUT("'Reassigning ",target.idNumber,' to '',dragon. identity); 
ASK EngagementHistory TO WriteString("'Reassigning "); 
ASK EngagementHistory TO WriteInt(ASK target idNumber,3); 
ASK EngagementHistory TO WriteString(" to "'); 
ASK EngagementHistory TO WriteString(ASK dragon 
identity); 


tt 


ASK EngagementHistory TO WritelLn; 
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vo mmE 
TELL dragon TO Target(target); 


engaging = TRUE; 
reassigned := TRUE; 
Ea 
BND Serr, 
END FOR; 


IF NOT reassigned 

IF walkingThru 
OUTPUT( identity," handing over ",ASK target idNumber); 

END IF; 
TELL myHQ TO TargetHandover(target, location); 

EN Deir: 

ELSE 

IF walkingThru 

OUTPUT( identity,’ handing over ",ASK target idNumber); 


END SIE; 
TELL myHQ TO TargetHandover(target, location); 
END IF; 
END WAIT; 
END METHOD: (* ReAssign *) 
(%* eee econ eee eee tee ewe teem wee ewe meme m mew eee etme we teem eeeememoee momen a *) 
iG METHOD Fire; 
VAR 
i ee EGER: 


dragon : ATGMObj; 


BEGIN 
IF strength[ dragongunner] > 0 
FOR i := 1 TO strength[ dragongunner] 


dragon := missileSection| i]; 
TELL Sdeagon TO Fire; 
END POR: 
ENDS IF: 
END METHOD; (* Fire *) 


TELL METHOD FinalAssault; 
VAR 
i TUN TEGER:; 
dragon : ATGMOb}; 


BEGIN 
finalAssault := TRUE; 
IF strength[ dragongunner] > 0 
FOR i := 1 TO strength{ dragongunner] 
dragon := missileSection| i]; 
IF (ASK dragon targetStatus <> killed) 
AND (NOT ASK dragon unassigned) 
TELL dragon TO EngageArmorTarget; 
END Te. 
END FOR; 
END IF; 
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ERD She aHoD: (* FinalAssault *) 


(* wee ee em me em em ee em ee ee He ee ee me mem mm ee eee ee mee ee eee ee ee eee ee eee eee * ) 
TELL METHOD InterruptFire; 
VAR 
i + INTEGER: 


dragon : ATGMOb}; 


BEGIN 
IF strength{dragongunner] > 0 
FOR i := 1 TO strength{ dragongunner] 


dragon := missileSection{ i]; 
TELL dragon TO InterruptMissileFire; 
END FOR; 
END Sie 
END METHOD: (* Interruper imeem 
END (OBJECT: (* FRCOb is 


END MODULE. 


Ue 


E. ATGMNI 


DEFINITION MODULE ATGM; 


FROM SimMod 
FROM RandMod 
FROM FPC 
FROM OPFOR 
FROM Weapons 
FROM Globals 


ee 


PEO 
Peon 
IMPORT 
PVE ORG 
PMEOR mt 
BMPORT 


ATGMObj} = OBJECT 


myUnit 
identity 
location 
missile 


permission 
assignedTarget 


distanceToTarget 


targetStatus 


engaging, 


unassigned, 


acquired, 
ready, 
tracking, 


firingComplete 


ASK METHOD 


ATGMInit(IN unit : 


TriggerOb}j; 
RandomObj; 

FPCOb}; 
EnemyVehicleOQbj; 
MissileRecordType; 
TargetStatusType; 


FPCOb}; 

STRING; 

STRING; 
MissileRecordType; 
TriggerObj; 
EnemyVehicleQbj; 
REAL; 
TargetStatusType; 


BOOLEAN; 
FPCOb}; 
IN id STRING); 


ASk 

ASK 

TELL 
eel 
TELL 
TELL 
TELL 
TELL 
TELL 
TELL 
Eich 


METHOD 
METHOD 
METHOD 
METHOD 
METHOD 
METHOD 
METHOD 
METHOD 
METHOD 
METHOD 
METHOD 


END OBJECT; 


END MODULE. 


UpdateMissileStatus; 
setLocation( IN coordinate :; 
Target(IN target : 
wait; 
EngageArmorTarget; 
PrepMissile; 
AcquireTarget; 
Fare: 
TrackMissile; 
CutWires; 
InterruptMissileFire; 


STRING); 
EnemyVehicleObj); 


aS 


TPG 


FROM 
FROM 
FROM 
FROM 
FROM 
FROM 
FROM 
FROM 
FROM 


OB 


(* 


EMENTATION MODULE ATGH; 

SimNod IMPORT Intereuon. 

OPFOR IMPORT EnemyVehicleOb}j; 

EPE IMPOR WE ECOb |: 

MapRecon IMPORT Distance; 

Impact IMPORT ALL ImpactAreaType, AspectAngle, AssessDamage; 
Weapons IMPORT ALL MissileType, MissileSysten; 

Menu IMPORT walkingThru, 

MOE IMPORT TotalOPFORIosses; 


Globals IMPORT ALL WeaponsStatusType, OutputFile, 
EngagementHistory, WeaponsStatus, 
ALL TargetStatusType, HitOrMiss; 


JECIVALGHOD]; 
ASK METHOD ATGMInitCIN unit: VRregey. 
TN ad : STE Ga 
BEGIN 
myUnit = nat; 
identity = id; 
location = ASKemyUniGe location; 
missile = CLONE(MissileSystem| Dragon] ); 
assignedTarget = NILOBJ; 
unassigned = FALSE; 
targetsStatus = missed; 
acquired = FALSE; 
ready = FALSE; 
tracking = FALSE; 
firingComplete = FALSE; 
engaging = FALSE; 


NEW( permission); 
END METHOD; (2 e40G i inie 


ASK METHOD UpdateNissileStatus; 


(* PrepMissile and AcquireTarget invoke this method when 
their status changes *) 


BEGIN 
IF acquired 
ready := TRUE; 
IF WeaponsStatus = HOLD 
ASK myUnit TO UpdateStatus; 
ELSE 
TELL permission TO Trigger; 
END SIE. 
END IF; 
END METHOD; (* UpdateMissileStatus *) 


ASK METHOD SetLocation(IN coordinate : STRING); 
BEGIN 


location := coordinate; 
END METHOD; (* SetLocation *) 


were ewww wee we wet ewe ewe tee wwe wt wm www ee www ew we ewww ow owe ¥ ) 
TELL METHOD Target(IN target : EnemyVehicleObj); 
BEGIN 

unassigned = FALSE; 

assignedTarget := target; 

targetStatus = missed; 

engaging = TRUE; 

IF missile. ammoCount > 0 

EngageArmorTarget; 
Pio e 
TELL myUnit TO ReAssign({ target); 

END TE: 
END METHOD; (* Target *) 
wwe meme ewe w em em e ew ee ew ee eww ww ew ww we em em em ww www www ew wwe ew eo ew * ) 
TELL METHOD Wait; 
BEGIN 

engaging = FALSE; 

unassigned = TRUE; 

ready = TRUE; 

targetStatus = killed; 

firingComplete := TRUE; 

assignedTarget := NILOBJ; 

ASK myUnit TO UpdateStatus; 
mney METHOD; (* Wait *) 
were wm eww ew ew eww ewe teow www ew ew ewe ew ewww ewe we wee wee eee eo we ve ) 


TELL METHOD EngageArmorTarget; 


(* This method simulates an ATGM (Dragon/TOW) engagement. The 
gunner receives a fire mission, prepares the missile, acquires 
the target, fires, and tracks the missile until impact or 
interrupted by incoming fires. *) 


BEGIN 
(* The WAIT FOR is used below so that any methods waiting will also 
terminate if one is interrupted. *) 
WAIT FOR SELF TO PrepMissile; 
END WAIT; 
WAIT FOR permission TO Fire (*from UpdateMissileStatus or Fire*) 
IF distanceToTarget <= missile. maxEffRange 
WAIT FOR SELF TO TrackMissile 
END WAIT; 
ELSIF ASK myUnit finalAssault 
Wait; (* moved out of range of previously assigned target *) 
IF walkingThru 
ASK EngagementHistory TO WriteString(identity); 
ASK EngagementHistory TO WriteString(" moved out of "); 
ASK EngagementHistory TO WriteString(" range of target "); 
ASK EngagementHistory TO 
WriteInt(assignedTarget. idNumber,35); 
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ASK EngagementHistory TO WriteLn; 


END Tr: 
ESE 
acquired = FALSE; 
ready = FALSE; 
firingComplete := TRUE; 
END Lr 


ASK myUnit TO UpdateStatus; 
ON INTERRUPT 
TERMINATE; 
END WAIT; 
END METHOD; (* EngageArmorTarget *) 


TELL METHOD PrepMissile; 
BEGIN 
WAIT DURATION missile. prepTime 
Acquirelarget; 
ON INTERRUPT (* Take cover! Incoming fires... *) 
GERMNATE: 
END WAIT; 
END METHOD; (* PrepMissile *) 


TELL METHOD Acquirelareer, 
BEGIN 
WAIT DURATION missile. acquisitionTime 
IF assignedTarget <> NILOBJ 
distanceToTarget := Distance(location, ASK assignedTarget 
location); 


acquired <= TRUE, 
UpdateMissileStatus; 
Eton 
TERMINATE; 
END aie: 


ON INTERRUPT (* Take cover! I[ncomimeeiies sae 
acquired := FALSE; 
TERMINATE: 


END WAIT; 
END METHOD; (* AcquireTarget *) 
(Henne eee en ener ee eee eee ee een eee e eee *) 
TELL METHOD Fire; 
BEGIN 


TELL permission TO Trigger; 
END MEGHOD; (* Fires) 


(% eee ee eee ee ee ee ee eee ee *) 
TELL METHOD TrackMissile; 
VAR 
result ; TargetStatusType; 
region : ImpactAreaType; 


76 


BEGIN 


Geeackine := TRUE; 

WAIT DURATION distanceToTarget / missile. velocity (*tracking time*) 
missile. ammoCount := missile. ammoCount - 1; 
tracking := FALSE; 
CutWires; 


IF walkingThru 
ASK EngagementHistory TO WriteString( identity); 
END IF; 
(* sample probability of hit *) 
IF ASK HitOrMiss UniformReal(0.0,1.0) < missile. pHit 


region := AspectAngle( location, assignedTarget); 
result := AssessDamage(missile, assignedTarget, region); 
targetStatus := result; 
IF walkingThru 
OUTPUT(identity," “,resulit," ",ASK assignedTarget 
idNumber); 
BIN OL 


CASE result 
WHEN killed : 
TotalOPFORIosses := TotalOPFORIJosses + 1]; 
engaging >= FALSE; 
ASK see ienediarget sue 
VehicleTerminate(missile. system,ORD( region) ); 
IF walkingThru 
ASK EngagementHistory TO WriteString(" killed"); 
ASK EngagementHistory TO WriteInt(ASK 
assignedTarget idNumber,3); 
END IF; 
assignedTarget := NILOBJ; 
WHEN damaged: 
IF walkingThru 
ASK EngagementHistory TO WriteString('' damaged "); 
ASK EngagementHistory TO WriteInt(ASK 
assignedTarget idNumber,3); 
BND LE: 
IF missile. ammoCount = 0 
engaging := FALSE; 
TELL myUnit TO ReAssign( assignedTarget); 
ELSIF ASK myUnit finalAssault 


EngageArmorTarget; 
ENDS IF: 
END CASE; 
ELSE 
targetStatus := missed; 


IF walkingThru 
OUTPUT( identity," missed ", ASK assignedTarget idNumber); 
ASK EngagementHistory TO WriteString(" missed "); 
ASK EngagementHistory TO WriteInt(ASK assignedTarget 
idNumber ,3); 
ENDS IF: 
IF missile. ammoCount = 0 
engaging := FALSE; 
TELL myUnit TO ReAssign(assignedTarget); 
ELSIF ASK myUnit finalAssault 


ie 


EngageArmorTarget; 
END IF; 
EN De IF 
IF walkingThru 
ASK EngagementHistory TO WriteLn; 
ENDar 
ON INTERRUPT (* Take Cover! Incoming fires... *) 
DEC(missile. ammoCount); (%* lost missile ) 
IF walkingThru 
OUTPUT( identity,’ lost missile during artillery strike "); 
BN Dales 
tracking := FALSE; 
IF missile. ammoCount = 0 
engaging := FALSE; 
TELL myUnit TO ReAssign(assignedTarget); 
EN Del Es 
TERMINATE; 
END WAIT; 
END METHOD; (* TrackMissile *) 


TELL METHOD CutWires; 
BEGIN 


(* elapse time to dismount Dragon sight or cut TOW wires *) 
WAIT DURATION MEEST LS. cutTime 


acquired = FALSE; 

ready = FALSE; 

firingComplete := TRUE; 

ASK myUnit TO UpdateStatus; 
END WAIT; 


END METHOD; (* CutWires *) 


TELL METHOD InterruptMissileFire; 


(* called from higher unit receiving indirect fires *) 


BEGIN 
Interrupt(SELF,: _PrepMissile” )3, 
Imberrupe( ShLr AcquireTarget © a 
Interrupt(SELF,''TrackMissile’); 
ASK myUnit TO UpdateStatus; 

END METHOD; (* InterruptMissileFire *) 


END OBJECT; (* ATGMObject *) 
END MODULE. 
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F. MAPRECON 


DEFINITION MODULE MapRecon; 


FROM GrpMod INPORT StackOb}; 
FROM Globals IMPORT UnitNameType; 


iy PE 


symociivpe — (AIKPSN, LD, CP1, CP2, CP3, CP4gg@P5, CPé, 
CE ech oweers GCFIO, ASLIPSN, TRGB) amOn) )r 


TargetList = ARRAY UnitNameType OF StackObj; 


PositionRecordType = RECORD 


symbol : SymbolType; 

coordinate co belnG: 

firingPositions : ARRAY INTEGER OF STRING; 
nextPosition : PositionRecordType; 


END RECORD; 
UnitMovementRouteList = ARRAY UnitNameType OF PositionRecordType; 
PROCEDURE ModelOperationsOverlay; 


PROCEDURE Distance( IN coordl, coord2 : STRING): REAL; 


VAR 
position : PositionRecordType; 
UnitRoute : UnitMovementRouteList; 
UnitTargetList : TargetList; 

END MODULE. 
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IMPLEMENTATION MODULE MapRecon; 


FROM Mathtiod IMPORT SORT) GB 

FROM GrpMod IMPORT StackObj; 

FROM IOMod IMPORT StreamObj, FileUseType( Input); 
FROM OPFOR IMPORT EnemyVehicleRef; 

FROM Menu IMPORT selectedModel, walkingThru; 
FROM Globals IMPORT ALL UnitNameType; 


PROCEDURE ModelOperationsOverlay; 


VAR 


i, numTgts, targetID, 

numFiringPositions, 

symbolCrossReferenceNumber : INTEGER; 

nilentry : STRING: 

3 ;: UnitNameType; 

coordinate ; STRING 

TerrainDataFile : StreamObj; 

targetList : StackObj; 

futurePosition > PositionRecordType; 
BEGIN 

ies 

NEW(TerrainDataFile); 


CASE selectedModel 


WHEN 1: ASK TerrainDataFile TO Open(''terrain. dat’, Input); 
WHEN 2: ASK TerrainDataFile TO Open("terrain2. dat", Input); 
OTHERW Ise 

ASK TerrainDataFile TO Open("terrain3. dat |, Impure 


END CASE; 
ASK TerrainDataFile TO ReadLine(nilentry); 
NEWCUnitRoute, A..D); 
NEWC Unit aresetlLise. Aba. 
WHILE NOT ASK TerrainDataFile eof 
WHILE j <= C 


ASk TerrainDataFile TO ReadLine(nilentry); 


LOOP 

NEW( position); 

ASK TerrainDataFile TO ReadInt(symbolCrossReferenceNumber); 
position. symbol := VAL(SymbolType, symbolCrossReferenceNumber ); 


ASK TerrainDataFile TO ReadString( position. coordinate); 
ASK TerrainDataFile TO ReadInt(numFiringPositions); 
IF numFiringPositions > 0 
NEW(C position. firingPositions, 1..numFiringPositions); 
FOR i:= 1 TO numFiringPositions 
ASK TerrainDataFile TO 
ReadString( position. firingPositions| i] ); 
END FOR; 
END IF; 
ASK TerrainDataFile TO ReadLine(nilentry); 
IF symbolCrossReferenceNumber < ORD(C OBJ) 


position. nextPosition := futurePosition; 
ene) 88 
futurePosition := position; 
IF symbolCrossReferenceNumber = 0 

Ee: 
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END IE; 
END LOOP; 
UnitRourcel 3): = posit fon: 
ASK TerrainDataFile TO ReadLine(nilentry); 
ASK TerrainDataFile TO ReadLine(nilentry); 
ASK TerrainDataFile TO ReadInt(numTgts); 
PR numicts a0 
NEW(UnitTargetList[ j] ); 
FOR i := 1 TO numTgts 
ASK TerrainDataFile TO ReadInt(targetID); 
ASK UnitTargetList[ j] TO 
Add(EnemyVehicleRef[ targetID] ); 
END FOR; 
ASK TerrainDataFile TO ReadLine(nilentry); 
END IF; 
NC Gan); 
END WHILE; 
END WHILE; 
ASK TerrainDataFile TO Close; 
DISPOSE(TerrainDataFile); 
FP walkineThru 
OUTPUT(’ Model Operations Overlay complete. "); 


OUTPUT; 
END IF; 
END PROCEDURE; (* ModelOperationsOverlay *) 
(* @ ee ewe mmm ee wee mmm mmm ewe meee eee eee eee ee eee ee mmm mn wm meee ee ee occa *) 


PROCEDURE Distance(IN coord1, coord2 : STRING) : REAL; 


(* Given two locations in UTM Grid Coordinates,( note these 
are 6-digit (100meter) coordinates with two letter identifier) 
this subroutine determines the straight-line distance in meters 
between the two points. A critical assumption of this procedure is 
that the two points will, at most, lie on two adjacent map sheets.*) 


VAR 
gridIdentifierl, gridIdentifier2 : STRING; 
meoordl!, Acoord2, 


Ve@oual reoord2 Seale 
DeltaX, DeltayY : REAL; 
Pomencoora., southcoord, 

eastcoord, westcoord oe eee 

BEGIN 

gridIdentifierl := SUBSTR(1,2,coord1); 
peagidentitier2 := SUBSTR(1,2,coord2); 
Xcoordl = STRTOREAL(SUBSTR(3,5,coord]1) ); 
Xcoord2 = STRTOREAL(SUBSTR(3,5,coord2)); 
rceoord! = STRTOREAL(SUBSTR(6,8,coord]1)); 
Ycoord2 = STRTOREAL(SUBSTR(6,8,coord2) ); 


(* The following variables are used when the two points lie on adjacent 
map sheets. *) 
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northcoord 1000.0 + MINOF(Ycoord],Ycoord2ae 


southcoord = MAXOF(Ycoordl,Ycoord2); 
eastcoord = 1000.0 + MINOF(Xcoord1,Xcoord2); 
westcoord = MAKOF( Xcoord 1, Xcoord. ). 


IF gridIdentifierl = gridIdentifier2 
(* Locations are within the same 100,000 square meter grid 
identification zone. *) 
DeltaX := ABS(UXcoordiy = Xcoord2): 
DeltaY := ABS(Ycoordl - Ycoord2); 


ELSIF SCHAR( gridiIdentifierl,1) = SCHAR( gridIdentifier2,1) 
(* Locations are in adjacent North-South grid 
identification zones. *) 
Deltax >= ABS(Xcoordl - Xcoord2); 
DeltaY := northcoord - southcoord; 


ELSIF SCHAR( gridIidentifierl,2) = SCHAR( gridIdentifier2,2) 
(* Locations are in adjacent East-West grid 
identification zones. *) 
DeltaXx := eastcoord - westcoord; 
DeltaY ABS(Ycoord!l = YecordZ,). 


Pleo 
(* Locations are in diagonally adjacent grid 
identification zones. *) 


Deltax := eastcoord - westcoord; 
DeltayY >= northeoord - southecord: 
ENDS 


RETURN (SQRT(DeltaX*DeltaX + DeltaY*DeltaY)) * 100.0; 
END PROCEDURE; (* Distance *) 


END HMOPURE: 


G. OPFOR 


WEF INGRLON MODULE OPFOR; 


FROM RandMod IMPORT Random0bj; 
FROM Weapons IMPORT MissileType; 


mr PE 


EnemyVehicleType = (BMP, BRDM, T72, ZSU234); 


EnemyVehicleObj = OBJECT 


idNumber, 

engagementCount : INTEGER; 

type : EnemyVehicleType; 

location STRING; (* UTM Grid coordinate *) 
orientation - EN@EGE ike 


ASK METHOD Objlnit; 
ASK METHOD VehicleTerminate(IN whatShotMe : MissileType; 
IN where SS LNIEGER ): 


END OBJECT; 


EnemyVehicleRefList = ARRAY INTEGER OF EnemyVehicleOb}j; 


PROCEDURE ModelEnemyDefense; 


VAR 
defender : EnemyVehicle0Ob}; 
IDnumber 7 INTEGER; 
Type : EnemyVehicleType; 
Location eS RNG, 
Orientation el NGEGE RK: 


EnemyVehicleRef : EnemyVehicleRefList; 


END MODULE. 
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IMPLEMENTATION MODULE OPFOR; 


FROM SimMod IMPORT SimTime; 

FROM IOMod IMPORT StreamObj, FileUseType( Input); 

FROM Weapons IMPORT ALL MissileType; 

FROM Globals IMPORT OutputFile; 

FROM MOE IMPORT TotalOPFORstarting, TotalOPFOR1losses; 
FROM Menu IMPORT walkingThru; 


PROCEDURE ModelEnemyDefense; 

VAR 
OPFORdataFile : StreamO0b}; 
enemyVehicleCrossReferenceNumber : INTEGER; 
nilentry : STRING; 


BEGIN 
TotalOPFORIlosses 
TotalOPFORstarting : 
NEWC(OPFORdataFile); 
ASK OPFORdataFile TO Open("opfor. dat", Input); 

ASK OPFORdataFile TO ReadLine(nilentry); 
NEW(EnemyVehicleRef, 93..210); 
WHILE NOT ASK OPFORdataFile eof 
ASK OPFORdataFile TO ReadInt(IDnumber); 
ASK OPFORdataFile TO ReadInt(enemyVehicleCrossReferenceNumber ); 
ASK OPFORdataFile TO ReadString(Location); 
ASK OPFORdataFile TO ReadInt( Orientation); 
ASK OPFORdataFile TO ReadLine(nilentry); 
Type := VAL(EnemyVehicleType, enemyVehicleCrossReferenceNumber ); 


Or: 
0; 


NEW( defender); 
TotalOPFORstarting = TotalOProRstarting +1. 
EnemyVehicleRef{ IDnumber] := CLONE(defender); 

END WHILE: 


ASK OPFORdataFile TO Close; 
DISPOSE(OPFORdataFile); 
PE walkingThru 
OUTPUT(’ Model Enemy Defense complete. "); 
OUTPUT, 
END: 
END PROCEDURE; (* ModelEnemyDefense *) 


OBJECT EnemyVehicleQbj; 


ASK METHOD Objinit; 


BEGIN 
idNumber = [Dnumber; 
type = Type; 
location = Location; 
Orientation = Orientation; 
engagementCount := 0; 
END METHOD; 
(Cer %) 


ASK METHOD VehicleTerminate( IN whatShotMe : MissileType; 


IN where ; INTEGER); 
VAR 
weapon, 
region, 
vehicleType 7 SR IENG: 
BEGIN 
IF walkingThru 
CASE whatShotMe 
WHEN Dragon : weapon := "dragon’; 
OTHERWISE 
weapon := "TOW; 
END CASE; 
CASE where 
WHEN 0 : region := "frontal"; 
WHEN 1 : region := "flank’; 
OTHERWISE 
region := "rear; 
END CASE; 
CASE type 
WHEN BMP : vehicleType := “BMP'; 
WHEN BRDM : vehicleType := '"BRDM'; 
WHEN T72 : vehicleType := "T72"; 
OTHERWISE 
vehicleType := "ZSU234"; 
END CASE; 
engagementCount := engagementCount + 1; 


IF engagementCount > 1 
ASK OutputFile TO WriteString("Multiply engaged target’); 
ASK OutputFile TO WriteInt(engagementCount, oe 
ASK OutputFile TO WriteString(" engagements thus far.'); 

EAD IF; 

ASK OutputFile TO WriteString("Enemy "); 

ASK OutputFile TO WriteString(vehicleType); 

ASK OutputFile TO WriteString(" number’), 

ASK OutputFile TO WriteInt(idNumber,5); 

ASK OutputFile TO WriteString(" KIA."); 

ASK OutputFile TO WriteLn; 

ASK OutputFile TO WriteString(" Killed at H+"); 

ASK OutputFile TO WriteReal(SimTime()/3600.0,4,1); 

ASK OutputFile TO WriteString("hrs by weapon type "); 

ASK OutputFile TO WriteString(weapon); 

Pook Outputrile TO WriteString(' from a '); 

ASK OutputFile TO WriteString(region); 

ASK OutputFile TO WriteString(" shot. hy, 

ASK OutputFile TO WriteLn; 

ASK OutputFile TO WriteLn; 

END IF; 

END METHOD; 


END OBJECT; 


END MODULE. 
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Ho eA 


DEFINITION MODULE Impact; 
FROM OPFOR IMPORT EnemyVehicleObj; 
FROM Weapons IMPORT MissileRecordType; 
FROM Globals IMPORT TargetStatusType; 
TYPE 

ImpactAreaType = (front, flank, rear); 


PROCEDURE AspectAngle(IN GunLocation : STRING; 


IN Target : EnemyVehicleObj) : 
ImpactAreaType; 
PROCEDURE AssessDamage(IN missile ; MissileRecordType; 
IN target : EnemyVehicleObj; 
IN impactPoint : ImpactAreaType) : 
TargetStatusType; 


END MODULE. 


$6 


PP LE 


FROM 
FROM 


MENTATION MODULE Impact; 


MathMod ~TNPORD ATAN, ACOS, SIN, COS, pi; 
OPFOR IMPORT EnemyVehicleObj; 


FROM Weapons IMPORT ALL MissileType, MissileRecordType; 


FROM 


PROCE 


( s¢ 


VAR 


Globals IMPORT ALL TargetStatusType, BDA; 


DURE AspectAngle(IN GunLocation : STRING ; 
IN Target : EnemyVehicleObj) 
ImpactAreaType; 


Given a gun location and a target location in 6-digit (100 m) 
UTM coordinates with two letter identifier, 

this procedure determines the engagement aspect angle and 
returns the region of the target in which the round impacts. 
This model assumes targets are symmetric with respect to their 
center of mass. 


Calculation of aspect angle is based on vector mathematics, 

where the aspect angle ALPHA is obtained from the dot product of 
the gun-target vector GAMMA, and the target orientation vector 
THETA, where the target location is the origin with Grid North as 
O degrees. *) 


ALPHA, GAMMA, THETA : REAL; 


& 
& 


§ 
D 


ridIdentifierGun, gridIdentifierTgt : STRING; 
unXcoord, tgtxXcoord, 

mmncoord..tetycoord > TNIEGER; 
eltaX, DeltaY o INTEGER; 


northcoord, southcoord, 


e 


astcoord, westcoord : INTEGER; 


BEGIN 


gridIdentifierGun : 
grididentifierTgt : 
gunxcoord 
tgtxXcoord 
gunYcoord 
moby coord 


(* 


SUBSTR(1,2,GunLocation); 

SUBSTR(1,2,ASK Target location); 
STRTOINT(SUBSTR(3,5,GunLocation) ); 
STRTOINT(SUBSTR(3,5,ASK Target location) ); 
STRTOINT( SUBSTR(6,8,GunLocation) ); 
STRTOINT(SUBSTR(6,8,ASK Target location) ); 


The following variables are used when the two points lie on 


adjacent map sheets. *) 


northcoord = 1000 + MINOF( gunYcoord,tgtYcoord); 
southcoord = MAXOF( gunYcoord,tgtYcoord); 
eastcoord = 1000 + MINOF( gunxXcoord,tgtXcoord); 
westcoord = MAXOF( gunXcoord,tgtXcoord); 

(* Convert target orientation angle to radians. *) 


THETA := FLOAT(CASK Target orientation) * pi / 180.0; 
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(* Determine the horizontal and vertical components of the 
gun-target vector. *) 


IF gridIdentifierGun = gridIdentifierTet 
(* Locations are within the same 100,000m square 
identification zone. *) 
Deltax >= ABS(gunxcoord - tgtXcoord); 
DeltaY >= ABS( gunY coord = tet) coord). 
(* in this case, the components do not need to be normalized *) 
northcoord := MAXOF( gunYcoord, tet yveoord). 
eastcoord := MAXOF( gunxXcoord,tgtXcoord); 


ELSIF SCHAR(gridIdentifierGun,1) = SCHAR(gridIdentifierTgt,1) 
(* Locations are in adjacent North-South grid 
identification zones. *) 
DeltaX := ABS(gunxXcoord - tgtXcoord); 
DeltaY := northcoord - southcoord; 


ELSIF SCHAR( gridIdentifierGun,2) = SCHAR(gridIdentifierTgt, 2) 
(* Locations are in adjacent East-West grid 
identification zones. *) 


DeltaX := eastcoord - westcoord; 
DeltaY := ABS(gunYcoord - tgtYcoord); 
BESE 


(* Locations are in diagonally adjacent grid 
identification zones.*) 


DeltaX := eastcoord - westcoord; 
DeltaY := northcoord - southcoord; 
END IF; 


(* Now determine the angle, GAMMA, between the gun-target line and 
GrideNeqcl- 
First case...target is north of the gun *) 


IF (northcoord = 1000 + tgtYcoord) OR (northcoord = tgtYcoord) 
DeltaY := - DeltayY; 

END IF; 

(* Second case...target is east of the gun *) 

IF (eastcoord = 1000 + tgtXcoord) OR (eastcoord = tgtXcoord) 
Deltax := - Deltax; 

END LE: 


IF DeltaY = 
IF Deltax 0 
GAMMA := pi/2.0; 
ELSE 
GAMMA := -pi/2.0; 
END? IE 


0 
> 


GAMMA := ATAN(FLOAT(DeltaX)/FLOAT(DeltaY) ); 
END IF; 


IF ((DeltaY < 0) AND (DeltaX > 0)) (*gun is in the 4th quad*) 
OR ((DeltaY < 0) AND (DeltaX < 0))(*gun is in the 3rd quad*) 


8§ 


GAMMA := GAMMA + pi; 

END Lk. 

IF ((DeitaY > 0) AND (Deltax < 0)) (*gun is in the 2nd quad*) 
GAMMA := GAMMA + 2.0 * pi; 

END IF; 


(* Now we can get aspect angle ALPHA *) 
ALPHA := ACOS(SIN(CGAMMA)*SIN( THETA) + COS(GAMMA)*COS( THETA) ); 


(* The aspect angle identifies one of the three regions of 
impact: front, flank, rear *) 


IF (ALPHA >= 7. 0*pi/4.0) OR (ALPHA <= pi/4. 0) 
RELURN front; 

ELSIF (ALPHA >= 3.0*pi/4.0) AND (ALPHA <= 5. 0*pi/4. 0) 
RETURN rear; 

BiGor 
RETURN flank; 

BND IF; 


END PROCEDURE; 


( ee ee eee ee eee eee ¥ ) 
PROCEDURE AssessDamage(IN missile : MissileRecordType; 
IN target : EnemyVehicleQb}; 
IN impactPoint: ImpactAreaType) : 
TargetStatusType; 
BEGIN 


IF ASK BDA UniformReal(0.0,1.0) < 
missile. pkill[ ORD(target. type) ,ORD( impactPoint) | 
RETURN killed; 
ELSE 
RETURN damaged; 
ND IF; 
END PROCEDURE; 


END MODULE. 
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I. WEAPONS 


DEFINITION MODULE Weapons; 
TPE 
MissileType = (Dragon, TOW); 


KillProbList = ARRAY INTEGER, INTEGER OF REAL; 
(* ARRAY EnemyVehicleType, ImpactAreaType... *) 


MissileEffectivenessList = ARRAY MissileType OF KillProbList; 


MissileRecordType = RECORD 
system : MissileType; 
velocity, 
maxEffRange, 
preplime, 
acquisitionTime, 


cutTime 1 COREA. 
ammoCount EGE: 

pHit : REA: 

pkill 7 RiP obiLa sik. 


END RECORD; 
MissileSystemList = ARRAY MissileType OF MissileRecordType; 


PROCEDURE ReadMissileData; 


VAR 
missile : MissileRecordType; 
MissileSystem : MissileSystemList; 
KillPres : KiliProbpuise: 


MissileEffect : MissileEffectivenessList; 


END MODULE. 
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IMPLEMENTATION MODULE Weapons; 
FROM IOMod IMPORT StreamObj, FileUseType( Input); 


PROCEDURE ReadkillProbData; 


VAR 
i : MissileType;: 
Rie K : INTEGER; 
nilentry SS LRENG. 
KillDataFile : Stream0bj; 
BEGIN 
NEW( KillDataFile); 


ASK KillDataFile TO Open("pkill. dat", Input); 
NEW(MissileEffect, Dragon. .TOW); 
FOR i := Dragon TO TOW 
Rew Ki VIProb 07. on Us. 2): 
ASK KillDataFile TO ReadLine(nilentry); 
HOR] := 0 TO 3 
ASK KillDataFile TO ReadString(nilentry); 
FOR k := 0 TO 2 
ASK KillDataFile TO ReadReal(KillProb[ j,k] ); 
END FOR; 
END FOR; 
ASK KillDataFile TO ReadLine(nilentry); 
MissileEffect[ i] := CLONE(Kil1lProb); 
WiSPOSE( Kil Prob); 
END FOR; 
ASK KillDataFile TO Close; 
DISPOSE(KillDataFile); 


END PROCEDURE; (* ReadKillProbData *) 
(* ee ee a ee ee ee 7 ) 
PROCEDURE ReadMissileData; 
VAR 
a : MissileType; 
nilentry Teo UR ING: 
WeaponsFile : Stream0Obj; 
BEGIN 
ReadKillProbData; 
NEW(WeaponsFile); 


ASK WeaponsFile TO Open("missile. dat", Input); 
ASK WeaponsFile TO ReadLine(nilentry); 
NEW(MissileSystem, Dragon. . TOW); 
FOR i := Dragon TO TOW 
NEW( missile); 
missile.system := i; 
ASK WeaponsFile TO ReadLine(nilentry); 
ASK WeaponsFile TO ReadReal(missile. velocity); 
ASK WeaponsFile TO ReadReal(missile. maxEffRange); 
ASK WeaponsFile TO ReadReal(missile. prepTime); 
ASK WeaponsFile TO ReadReal(missile. acquisitionTime); 
ASK WeaponsFile TO ReadReal(missile. cutTime); 
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ASK WeaponsFile TO ReadInt(missile. ammoCount); 
ASK WeaponsFile TO ReadReal(missile. pHit); 
ASK WeaponsFile TO ReadLine(nilentry); 


missile. pkill := MissileEffect[ i]; 
MissileSystem[ missile. system] := missile; 
END FOR; 


ASK WeaponsFile TO Close; 
DISPOSE(WeaponsFile); 
END PROCEDURE; 


END MODULE. 


ae ARTY 


DEFINITION MODULE Arty; 
FROM Globals IMPORT UnitNameType; 
ey Pe 
PROCEDURE ScheduleOPFORArty; 
VAR 
ImpactTimeA, 
ImpactTimeB, 
ImpactTimeC : REAL; 
Pk : ARRAY UnitNameType OF REAL; 


END MODULE. 
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IMPLEMENTATION MODULE Arty; 


FROM MathMod IMPORT POWER, EXP, SQRT; 

FROM RandMod IMPORT RandomObj, FetchSeed; 

FROM Globals IMPORT ALL UnitNameType, RoundGenerator; 
FROM Menu IMPORT selectedModel, walkingThru; 


PROCEDURE ScheduleOPFORArty; 


CONST 
GunsFiring = 6; 
LethalArea = 1963.495 ; (* @ - lethal radius = 25m *) 
TargetArea = 28600.0 ; (* NTC IFCAS Box *) 
VAR 
RoundsPerGun ; = INEEGER. 
Z 2 ORE ee. 
Unit : UnitNameType; 
BEGIN 
CASE selectedModel 
WHEN 1 : ImpactTimeA := 25200. 0; 
ImpactTimeB := 28800. 0; 
ImpactTimeC := 3600.0; 
WHEN 2 : ImpactTimeA := 3600.0; 
ImpactTimeB := 12096. 0; 
ImpactTimeC := 3600.0; 
OTHERWISE ImpactTimeA := 5000.0; 
ImpactTimeB := 7200.0; 
ImpactTimeC := 3600.0; 
END CASE; 
NEWCPk, A..C); 
FOR UMA tes — An. G 
RoundsPerGun := ASK RoundGenerator UniformInt(1,3); 
Zoi tra career eae * RoundsPerGun) * LethalArea / Target 
Pk[ Unit] := POWER( (170 = EXP(-SQRi(2)) eu: 


END FOR; 
END PROCEDURE; 


END MODULE. 
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kK. MOE 


DEFINITION MODULE MOE; 


VEE 
PROCEDURE Mean(IN replicationNumber : INTEGER; 
IN oldAvg : REAL; 
IN currentSample mekREAlD) ©? s REAL: 


PROCEDURE MOEmean( IN replicationNumber : INTEGER; 


IN currentSample ; REAL); 
PROCEDURE MOEvariance(IN replicationNumber : INTEGER; 
IN oldAvg : REAL; 
IN currentSample : REAL); 
PROCEDURE ReportStats; 
VAR 
TotalOPFORIJosses, 
TotalOPFORstarting : SENTECGER: 
MeanMOE, VarianceMOE : REAL; 
meanMissionTime, 
meanAttritionForThisRun, 
percentAttrition : REAL; 
Ew) MODULE. 


yS 


IMPLEMENTATION MODULE MOE; 


FROM MathiNed IMPORT POWER: 
FROM Globals IMPORT OutputFile; 


FROM Menu IMPORT numberOfReplications; 
PROCEDURE Mean(IN replicationNumber : INTEGER; 

IN oldAvg ; shee: 

IN currentSample se A) See ee 


BEGIN 
RETURN ((FLOAT(replicationNumber) * oldAvg) + 
currentSample) / FLOAT(replicationNumber + 1); 
END PROCEDURE; 


PROCEDURE MOEmean(IN replicationNumber : INTEGER; 


IN currentSample REL) 
VAR 
newMOE, oldAvg : REAL; 
BEGIN 
newMOE := currentSample/FLOAT(TotalOPFORstarting); 
oldAvg := MeanMOE; 
MeanMOE := ((FLOAT(replicationNumber) * oldAvg) + 


newMOE) / FLOAT(replicationNumber + 1); 
MOEvariance(replicationNumber, oldAvg, newMOE); 
END PROCEDURE; 


PROCEDURE MOEvariance(IN replicationNumber : INTEGER; 


IN oldAvg : REAL; 
IN currentSample : REAL); 
VAR 
re 
oldVariance : REAL; 
BEGIN 
rn := FLOAT(replicationNumber); 
oldVariance := VarianceMOE; 


IF replicationNumber = 0 
VarianceHOE += 0.0; 
ELSIF replicationNumber = 1 
VarianceMOE := POWER((oldAvg - currentSample), 2.0) / 2.0; 
BEor 
VarianceMOE := (((€rn = 1.0)/ren) * oldvVartance ie, 
POWER( ol dAvie5e20))mae 
(C1. 0/rn)*POWER(currentSample,2.0)) - 
((Crnt+1.0)/rn) * POWERCHeanNOE e230 ie 
EN ie 
ENDP PROCEDURE: 


PROCEDURE ReportStats; 


BEGIN 
ASK OutputFile TO WriteString('"The mean Destroy MOE over "); 


96 


ASK 
ASK 
ASK 
ASK 
ASK 
ASK 
ASK 
ASK 
ASK 
ASK 
ASK 
ASK 
ASK 
ASK 
ASK 
ASK 
ASK 
ASK 


OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 
OutputFile 


END PROCEDURE; 


END MODULE. 


TO 
3G 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
ao 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
i) 


WriteInt(numberOfReplications,5); 
Mratestiane( replications is"): 
Debbie On 2%): 
WriteLn; 
WriteLn; 
WriteString('The variance of the Destroy MOE is "); 
WriteReal( VarianceMOE ,6,4); 
WriteLn; 
WriteLn; 
WriteString(''The mean mission time is "); 
eee. ye 

riteString ES. 1): 
WriteLn; 
WriteLn; 
WriteString(''The mean attrition for the"); 
WriteString(" battalion was ''); 
WriteReal(percentAttrition * 100.0,8,4); 
WriteString(" percent. "); 


oF 


L. MENU 


DEFINITION MODULE Menu; 
TYPE 
PROCEDURE RunMenul; 
PROCEDURE RunMenu2;3 
PROCEDURE CleanUp; 
VAR 
selectedModel, 
numberOfReplications : INTEGER; 
replicating, 
walkingThru, 
playingArty : BOOLEAN; 


END MODULE. 
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IMPLEMENTATION MODULE Menu; 


FROM CRTMod IMPORT ClearScreen; 

FROM IOMod IMPORT ReadKey; 

FROM MapRecon IMPORT UnitRoute, UnitTargetList; 
FROM OPFOR IMPORT EnemyVehicleRef; 


iy PE 


PROCEDURE RunMenul; 
VAR 
selection : CHAR; 


BEGIN 
ClearScreen; 
perPuUn: OUTPUT. OUTPUT, OUTPUT; 
OUTPUT(" Welcome to the Light Infantry Attack Simulation "); 
OWGPUT: OUTPUT; 
OUTPUT(" Select the Tactic you wish to experiment with. ''); 
OUTPUT; OUTPUT; 
OUTPUT(" GijeeBase-Line Model  ); 
QOTPRUT: 
OUTPUT(" (2) Rear Attack "); 
OUTPUT; 
OUTPUT(" (3) Flank Attack eo): 
OUTPUT; 
selection 
selectedModel 
RunMenu2; 

END PROCEDURE; 


Readkey(); 
STRTOINT( selection); 


PROCEDURE RunMNenu2; 
VAR 
selection : CHAR; 


BEGIN 
ClearScreen; 
OUTPUT; OUIPUT; OUTPUT; OUTPUT; OUTPUT; OUTPUT; 
OUTPUT("' You have the option to: '); 
SerPul; OUTPUT; OUTPUT; 
OUTPUT(""(1) Replicate the model a fixed number of times, or...''); 


oUTPUT; 
OUTPUT("'(2) Conduct a model Walk-Through WITH Artillery, or’); 
OUTPUT; 
OUTPUT("'(3) Conduct a Walk-Through WITHOUT Artillery’); 
OUTPUT; 
selection >= ReadKey(); 
iF selection = "1" 
replicating := TRUE; 
walkingThru := FALSE; 
playingArty := TRUE; 
Bbolr selection = "2" 
replicating := FALSE; 
walkingThru := TRUE; 


ee 


numberOfReplications := 1; 
playingArty := TRUE; 

ELSE 
replicating := FALSE; 
walkingThru := TRUE; 
numberOfReplications := 1; 


playingArty := FALSE; 

ENE LE 

IF replicating 
OUTPUT;~ OUTPUT; OUTPUT; OQUDPUT SouieuE 
OUTPUT("’ Enter the number of replications"); 
INPUT(numberOfReplications); 

END IF; 

ClearScreen; 

ENDS EROCEDURE- 


PROCEDURE CleanUp; 

BEGIN 
DISPOSE(EnemyVehicleRef); 
DISPOSE ( Unttekemte ): 
DISPOSE(UnitTargetList); 

Biyo PROCEDURE. 


END MODULE. 


100 


APPENDIA B. 


A. OPFOR DATA 


ven iD # 
107 
140 
138 
a 
208 


Type Xref # 


OoOOrWODOONDGTDAOA0O 


B. MISSILE DATA 


Missile Vel MaxEffRange 


DRAGON 
66. 667 


1000. 0 


TOW CHMMWV mounted) 


ee > / 1 


J7 20.0 


C. P-KILL DATA 


DRAGON vs. 
BMP 

BRDM 

i 2 
Z5U234 
TOW vs. 
Jee 

BRDM 


front 
0.72 
0.99 
0.185 
0. 80 
Prone 
0.965 


0.995 


20:0 


location 


NK388180 
NK361194 
Nie 190 
NK358185 
Nis 7 77 
NKo2 0201 
Nis 166 
NK332182 
NK331180 
NK329174 
NRSo2 lS? 
Nko2 7190 
NK326189 
Nigsi516i 


m0) 5: 


flank 
0.655 
0.985 
0.405 
0.815 
flank 
0.965 
0.985 


oe 


Prep Acquire 


0 


0 
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INPUT DATA FILES 


orientation 
35 
70 
80 
eS 
97 
45 
110 
Leo 
130 
90 
80 
120 
ies 
108 
Cut AmmoCount 
22:0 2 
BAG) 10 
rear 
Om 2 
0.99 
0.185 
0. 80 
rear 
0.965 
0.995 


Hit 
0.6475 


OV 322 


P72 O2225 0.475 
ZSU234 0: 965 O965 


D. TRANSPORTATION DATA 


METHOD DAY NIGHT 
Foot Ze EG 
‘Pauek 12 20 So. 0 
AirAssault 145.0 HOO. 0 


C225 
0.965 


Conv Factor(m/s) 
On 776 
OF2775 
O52 11 


APPENDIX C. SCENARIO INPUT 


A. BASELINE MODEL 


Symbol Xref## coordinate # firing pos Firing Psns 
A Company 
14 NK325185 0 
re NK333175 eo Dio Ss 2 Nie oe Se) NK335176 
iP2 NK336171 3 NK334170 NK335172 NK337173 
10 NK344164 0 
a NK360164 0 
8 NK369171 0 
7 NK37 2 Lea 0 
» NK375188 0 
3 NK390198 0 
Z NK405199 0 
i NK411200 0 
0 NK417198 0 
A Company Target List 
# targets Target ID numbers 
4 162m ooet0S8 113 
B Company 
14 NK330195 0 
13 NK335185 3 NK334184 NK335185 NK337187 
eZ NK341183 5 NK339180 NK341183 NK343184 
10 NK344164 0 
2 NK360164 0 
8 NK369171 0 
7 NK372181 0 
5 NK375188 0 
2 NK390198 0 
Zz NK405199 0 
1 NK411200 0 
0 NK417198 0 
B Company Target List 
## targets Target ID numbers 
3 va oe oo 
C Company 
14 NK360187 0 
13 NK362188 3 NK360185 NK362188 NK362191 
2 NK365191 ) NK364188 NK364191 NK364192 
6 NK368196 0 
4 NK369204 0 
il NK360201 0 
0 Nee s20S 0 
C Company Target List 
## targets Target ID numbers 
4 140 138 141 208 
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B. REAR ATTACK MODEL 


Symbol Xref## coordinate 
A Company 
14 NK331176 
rs NK322179 
a2 NK315185 
3 NK311183 
2 NK303188 
1 NK301190 
0 NK297193 
A Company Target List 
## targets 
4 iis 
B Company 
14 NK332186 
ie NK326189 
2 NK320190 
4 Neos is 
i NK301190 
0 NKZo7 
B Company Target List 
## targets 
3 95 
C Company 
14 NK357180 
ie NK356187 
IZ Nios! lg 
7 NK346195 
6 NK325195 
5 NK318200 
1 Noor ii¢ 
0 NEZ97 1935 


C Company Target List 


## targets 
5 


94 


## firing pos 


OO Om OW © 


Firing Psns 


NK32Z2 169 
NKew5 i663 


Target ID numbers 


162 


106 


1 @ G&S 


108 


NK3245186 
NK31$189 


Target ID numbers 


7 


og 


OO OG © @ ® © 


NK354184 
NK349189 


Target ID numbers 


140 


12s 


104 


141 


208 


NK323178 
NK316184 


NK326189 
NR2Z0190¢ 


NK356187 
NRoo 1192 


NK322177 
NK316185 


NK327191 
NK32iaom 


NK357188 
NK353194 


C. FLANK ATTACK MODEL 


Symbol Xref# 
A Company 
14 
13 
2 

2 
1 
0 


coordinate 


NK329178 
NK325188 
NeeZo199 
NK329210 
Nee oo21/ 
Nie 5219 


A Company Target List 


# targets 
S 


B Company 
14 
3 
Zz 
3 
1 
0 


Nkeoiil7s 
NK331190 
NK3S2 198 
NKS23207 
NK335217 
Niooo2 19 


B Company Target List 


## targets 
4 
C Company 
14 


re 
2 


Or kN 


NK25 5160 
NK356185 
NK360198 
NK354204 
NK345207 
NKSge2l7 
Nie 2 19 


C Company Target List 


# targets 
> 


94 


# firing pos 


OOO WwW @ 


Firing Psns 


NeoeZio7 
NKo25 199 


Target ID numbers 


a 


CC a 


o7 


a We 


NK329184 
Nieozioo 


Target ID numbers 


oe 10 


OOOO WW O 


8 


106 


NK354185 
NK3D5> L979 


Target ID numbers 


140 613 


§ 


105 


141 


208 


162 


NK325188 
NK326199 


NK330182 
NK333198 


NK356185 
NK360198 


Niele? 
NK327199 


NS 32.85 
NK334198 


NK359186 
NK361198 


APPENDIX D. SAMPLE ATTRITION OUTPUT 


Attrition to platoon Cl with 13 losses. 
Strengths for each class of soldier 


rifleman 8 
autorif leman 5 
grenadier 3 
machinegunner 0 
dragongunner 1 
leader TL 


Attrition to platoon C2 with 13 losses. 
Strengths for each class of soldier 


rifleman i, 
autorifleman 4 
grenadier 3 
machinegunner i 
dragongunner yi 
leader 9 


Attrition to platoon C3 with is tosses. 
Strengths for each class of soldier 


rifleman 8 

autorifleman S 

grenadier 5 

machinegunner i 

dragongunner 1 

leader 8 

Attrition to platoon Al with 8 losses. 
Strengths for each class of soldier 
rifleman 10 

autorifleman 5 

grenadier 6 

machinegunner l 

dragongunner el 

leader 10 

Attrition to platoon A2 with 8 losses. 
Strengths for each class of soldier 
rifleman 7 

autorif leman 3 

grenadier > 

machinegunner i 

dragongunner 2 

leader i 

Attrition to platoon As wach 8 losses. 
Strengths for each class of soldier 
rifleman 5 

autorifleman 5 

grenadier 6 

machinegunner 1 

dragongunner 2 

leader 12 


Attrition to platoon Bl with 17 losses. 
Strengths for each class of soldier 
rifleman 6 
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autorifleman 
grenadier 
machinegunner 
dragongunner 
leader 


Poemobidon touplatoon, B2 swith 


OO Or ho & 


17 losses. 


Strengths for each class of soldier 


rifleman 
autorifleman 
grenadier 
machinegunner 
dragongunner 
leader 


Peerition to platoon B3 with 


5 


3 
3 
1 
i 


\O 


17 losses. 


Strengths for each class of soldier 


rifleman 
autorifleman 
grenadier 
machinegunner 
dragongunner 
leader 


6 


3 
4 
1 
1 
7 
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APPENDIX E. SAMPLE ENGAGEMENT HISTORY 


All damaged 113 

Bil vkitled. 797 

C31 missed 94 

C32 killed 140 

C21 damaged 138 

B21 Killed 95 

Cll missed 141 

B31 missed 99 

C31 moved out of range of target 94 
Cll damaged 141 

Celerriied I36 

C12 damaged 208 

Bole vileds yo7 

C12 killed 208 

Handing over 141 to platoon C2 
C22 killed 141 

A22 missed 162 

All killed 113 

A31 damaged 106 

A21 damaged 108 

A22 damaged 162 

A31 missed 106 

A21 missed 108 

Reassigning 106 to A32 

A32 damaged 106 

A32 killed 106 

Handing over 162 to platoon Al 
Al2 missed 162 

Al2 missed 162 

Unable to handover target 162 
Unable to handover target 108 
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APPENDIX F. BASELINE MODEL OUTPUT 


A. RESULTS OF 500 REPLICATIONS 


The 
The 
The 


The 


mean Destroy MOE over 


mean mission time is 


500 replications is 0.5881 


8.0390 


hrs. 


mean attrition for the battalion was 


variance of the Destroy MOE is 0.0105 


B. RESULTS OF A TRIAL WITHOUT ARTILLERY 


Enemy BMP number 
Realled at H + 


Enemy BMP number 
Killed at H + 


Enemy BMP number 
Keriled ata + 


Enemy BMP number 
Killed at H + 


Enemy T72 number 
Killed at H + 


Enemy BMP number 
Killed at H + 


Enemy BMP number 
Killed at H + 


Enemy BMP number 
Killed at H + 


Enemy Z5U234 number 


138 KIA. 
7.3hrs by 


141 KIA. 
7. 3hrs by 


99 KIA. 
72ohrs by 
Sole, 
f2o0cs by 


208 KIA. 
jmoirs by 


o> KIA. 
8.Ohrs by 


140 KIA. 
8.Ohrs by 


108 KIA. 
8.Ohrs by 


weapon 


weapon 


weapon 


weapon 


weapon 


weapon 


weapon 


weapon 


162 KIA. 


Killed at H+ 8.2hrs by weapon 


The mean Destroy MOE over 


type 


type 


type 


type 


type 


type 


type 


type 


dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


type dragon 


from 


from 


from 


from 


from 


from 


from 


from 


33.9972 percent. 


fmoncal Shot. 


flank shot. 


frontal shot. 


frontal shot. 


flank shot. 


frontal shot. 


flank shot. 


frontal shot. 


from a frontal shot. 


1 replications is 0. 6429 


The variance of the Destroy MOE is 0.0000 


The mean mission time is 


8. 24/74 hrs. 
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C. RESULTS OF A TRIAL WITH ARTILLERY 


Enemy BMP number 138 KIA. 
Killed at H + 7.3hrs by weapon 


Enemy BMP number 141 KIA. 
Killed at H + 7.3hrs by weapon 


Enemy BMP number 99 KIA. 
Killed at H + 7.3hrs by weapon 


Enemy BMP number 140 KIA. 
Killed at H + 8.Ohrs by weapon 


Enemy Z2SU234 number 162 KIA. 
Killed at H + 8.Ohrs by weapon 


Enemy BMP number 108 KIA. 
Killed at H + 8.Ohrs by weapon 


Enemy BMP number 106 KIA. 
Killed at H + 8.lhrs by weapon 


type 


type 


type 


type 


type 


type 


type 


dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


from 


from 


from 


from 


from 


from 


frontal shot. 


flank shot. 


frontal shou 


flank shot. 


frontal shew 


frontal shoe 


from a frontal shot. 


The mean Destroy MOE over 1 replications is 0.5000 


The variance of the Destroy MOE is 0.0000 


The mean mission time is 8.4447 hrs 


The mean attrition for the battalion was 
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34.3475 percent. 


APPENDIX G. REAR ATTACK MODEL OUTPUT 


A. RESULTS OF 500 REPLICATIONS 


The 
The 
The 


The 


mean Destroy MOE over 


mean mission time is 


500 replications is 0.6757 


DrLlooo 


hes. 


mean attrition for the battalion was 


variance of the Destroy MOE is 0.0158 


B. RESULTS OF A TRIAL WITHOUT ARTILLERY 


Enemy BMP number 
Killed at H + 


Enemy BMP number 
Killed at H + 


Enemy BMP number 
Killed at H + 


Enemy BMP number 
Kalledgeat H + 


Enemy BMP number 
Killed at H + 


Enemy T72 number 
Killed at H + 


Enemy BMP number 
Killed at H + 


Enemy BMP number 
Killed at H + 


Enemy BMP number 


yy KIA. 


4. lihrs by 


140 KIA. 
4.ihrs by 


9 Del ae 


4.lihrs by 


133 KIA. 
4.9hrs by 


Oo KIA. 


4.9hrs by 


208 KIA. 
4.9hrs by 


141 KIA. 
Sr UES by 


iS KIA. 
52 Ohires by 


106 KIA. 
Killed at H+ 5.ihrs by 


The mean Destroy MOE over 


weapon 


weapon 


weapon 


weapon 


weapon 


weapon 


weapon 


weapon 


weapon 


eype 


type 


type 


type 


Cype 


type 


type 


type 


type 


dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


from 


from 


from 


from 


from 


from 


from 


from 


from 


a 


oo 99/7 2 percent, 


Can 


Lear 


rear 


rear 


Pea 


flank shot. 


Leak 


frontal shot. 


flank shot. 


1 replications is 0.6429 


The variance of the Destroy MOE is 0.0000 


The mean mission time is 


5. 1876. hes: 
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SHOU, 


shoOL. 


shot. 


shot. 


shot. 


Shot. 


C. RESULTS OF A TRIAL Wit Ara Pee 


94 KIA. 
4.lhrs by 


Enemy BMP number 
Killed at H + weapon 
95 KIA. 

4.ihrs by 


Enemy BMP number 
Killed at H + weapon 
140 KIA. 
4.2hrs by 


Enemy BMP number 
Killed at He weapon 
O9 Kae 

4.9hrs by 


Enemy BMP number 
Ki Bled wer ait -3, weapon 
138 KIA. 
SOs. DY 


Enemy BMP number 


Killed at H + weapon 


Enemy BMP number S97 Klee 


Killed at H + 5.0hrs by weapon 


Enemy ZSU234 number 162 KIA. 
Killed at H + 5.Qhrs by weapon 


Enemy BMP number 106 KIA. 
Killed at H + 5.0Ohrs by weapon 


The mean Destroy MOE over 
The 
The mean mission time is 


The 


type 


type 


type 


type 


Eyre 


type 


type 


type 


>. SLOOP ESE 


mean attrition for the battalion was 
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dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


variance of the Destroy MOE is 0.0000 


from a flank shot. 


from a rear shot. 


from a rear shot. 


from a rear shot. 


from a rear shot. 


from a rear shot. 


from a rear shot. 


from a flank shot. 


1 replications is 05714 


34.3475 percent. 


APPENDIX H. FLANK ATTACK MODEL OUTPUT 


A. RESULTS OF 500 REPLICATIONS 


The Mean Destroy MOE over 500 replications is 0.6330 
The variance of the Destroy MOE is 0.0196 
The mean mission time is Seoe22 irs. 


The mean attrition for the battalion was 33.9972 percent. 


B. RESULTS OF A TRIAL RUN WITHOUT ARTILLERY 


Enemy BMP number 94 KIA. 
Killed at H+ 2.5hrs by weapon type dragon from a flank shot. 


Enemy BMP number 95 KIA. 
Killed at H+ 2.5hrs by weapon type dragon from a flank shot. 


Enemy BMP number 97 KIA. 
Killed at H+ 3.6hrs by weapon type dragon from a flank shot. 


Enemy BMP number 138 KIA: 
Killed at H + 3.7hrs by weapon type dragon from a flank shot. 


Enemy T72 number 208 KIA. 
Killed at H + 3.7hrs by weapon type dragon from a flank shot. 


Enemy BMP number 140 KIA. 
Killed at H + 3.7hrs by weapon type dragon from a flank shot. 


Enemy BMP number 141 KIA. 
Killed at H+ 3.8hrs by weapon type dragon from a rear shot. 


Enemy BMP number 99 KIA. 
Killed at H+ 4.3hrs by weapon type dragon from a flank shot. 


Enemy BMP number 108 KIA. 
Killed at H+ 4.3hrs by weapon type dragon from a rear shot. 


Enemy BMP number 106 KIA. 
Killed at H + 4.4hrs by weapon type dragon from a rear shot. 


Enemy ZSU234 number 162 KIA. 
Killed at H+ 4.6hrs by weapon type dragon from a flank shot. 


The mean Destroy MOE over Hinepilyeations is 0. 7657 


i 


The variance of the Destroy MOE is 0.0000 


The mean mission 


time is 


4. S16 cOeshmese 


C. RESULTS OF A TRIAL RUN WITH ARTILLERY 


Enemy BMP number 
Killed at ia: 


Enemy BMP number 
Killed at H + 


Enemy BMP number 
Killed at H + 


Enemy BMP number 
Killed at H + 


Enemy BMP number 
Killed at H + 


Enemy BMP number 
Killed at H + 


Enemy BMP number 
Killed at H + 


94 KIA. 
2. 6hrs 9oF 


97 KIA. 
2, 6hYsmpn 


95. Kies 
3.6hrs by 


136 Kia: 
3. 7 NLS ow 


140 KIA. 
5.0) NES aby. 


141 KIA. 
3.8hrs by 


113 KIA. 
5. 8hrs aby 


The mean Destroy MOE over 


weapon 


weapon 


weapon 


weapon 


weapon 


weapon 


weapon 


type 


type 
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type 


type 


type 


type 


dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


dragon 


from 


from 


from 


from 


from 


from 


from 


a 


flank shot. 


redr-snoee 


flank shot. 


rear Shee. 


flank shot. 


rear shot. 


flank shot. 


1 replications is 0.5000 


The variance of the Destroy MOE is 0.0000 


The mean mission 


The mean attrition for the battalion was 


time is 


4.3956 hrs. 


lid 


34.3475 percent. 
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